/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / sunpro / sccs.elc.z / sccs.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 34 3a 34 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:54:45 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 73 75 6e 70 |s-20.3/l|isp/sunp|
|000000a0| 72 6f 2f 73 63 63 73 2e | 65 6c 0a 3b 3b 3b 20 65 |ro/sccs.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 73 63 63 73 2e 65 6c 27 |error "`|sccs.el'|
|000001f0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|00000200| 72 20 45 6d 61 63 73 20 | 32 30 22 29 29 0a 0a 28 |r Emacs |20"))..(|
|00000210| 6f 72 20 28 62 6f 75 6e | 64 70 20 27 63 75 72 72 |or (boun|dp 'curr|
|00000220| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 29 20 28 |ent-load|-list) (|
|00000230| 73 65 74 71 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |setq cur|rent-loa|
|00000240| 64 2d 6c 69 73 74 20 6e | 69 6c 29 29 0a 0a 0a 23 |d-list n|il))...#|
|00000250| 40 31 33 35 20 2a 44 69 | 72 65 63 74 6f 72 79 20 |@135 *Di|rectory |
|00000260| 74 68 61 74 20 68 6f 6c | 64 73 20 74 68 65 20 53 |that hol|ds the S|
|00000270| 43 43 53 20 65 78 65 63 | 75 74 61 62 6c 65 73 2e |CCS exec|utables.|
|00000280| 0a 49 6e 69 74 69 61 6c | 69 7a 65 64 20 61 75 74 |.Initial|ized aut|
|00000290| 6f 6d 61 74 69 63 61 6c | 6c 79 20 74 68 65 20 66 |omatical|ly the f|
|000002a0| 69 72 73 74 20 74 69 6d | 65 20 79 6f 75 20 65 78 |irst tim|e you ex|
|000002b0| 65 63 75 74 65 20 61 6e | 20 53 43 43 53 20 63 6f |ecute an| SCCS co|
|000002c0| 6d 6d 61 6e 64 2c 0a 69 | 66 20 6e 6f 74 20 61 6c |mmand,.i|f not al|
|000002d0| 72 65 61 64 79 20 73 65 | 74 2e 1f 0a 28 64 65 66 |ready se|t...(def|
|000002e0| 76 61 72 20 73 63 63 73 | 2d 62 69 6e 2d 64 69 72 |var sccs|-bin-dir|
|000002f0| 65 63 74 6f 72 79 20 6e | 69 6c 20 28 23 24 20 2e |ectory n|il (#$ .|
|00000300| 20 2d 35 39 37 29 29 0a | 23 40 34 39 20 2a 4d 61 | -597)).|#@49 *Ma|
|00000310| 78 69 6d 75 6d 20 61 6c | 6c 6f 77 61 62 6c 65 20 |ximum al|lowable |
|00000320| 73 69 7a 65 20 6f 66 20 | 61 6e 20 53 43 43 53 20 |size of |an SCCS |
|00000330| 6c 6f 67 20 6d 65 73 73 | 61 67 65 2e 1f 0a 28 64 |log mess|age...(d|
|00000340| 65 66 76 61 72 20 73 63 | 63 73 2d 6d 61 78 2d 6c |efvar sc|cs-max-l|
|00000350| 6f 67 2d 73 69 7a 65 20 | 35 31 30 20 28 23 24 20 |og-size |510 (#$ |
|00000360| 2e 20 2d 37 38 31 29 29 | 0a 23 40 37 32 20 2a 54 |. -781))|.#@72 *T|
|00000370| 68 65 20 63 6f 6d 6d 61 | 6e 64 2f 66 6c 61 67 73 |he comma|nd/flags|
|00000380| 20 6c 69 73 74 20 74 6f | 20 62 65 20 75 73 65 64 | list to| be used|
|00000390| 20 69 6e 20 63 6f 6e 73 | 74 72 75 63 74 69 6e 67 | in cons|tructing|
|000003a0| 20 53 43 43 53 20 64 69 | 66 66 20 63 6f 6d 6d 61 | SCCS di|ff comma|
|000003b0| 6e 64 73 2e 1f 0a 28 64 | 65 66 76 61 72 20 73 63 |nds...(d|efvar sc|
|000003c0| 63 73 2d 64 69 66 66 2d | 63 6f 6d 6d 61 6e 64 20 |cs-diff-|command |
|000003d0| 27 28 22 64 69 66 66 22 | 20 22 2d 63 22 29 20 28 |'("diff"| "-c") (|
|000003e0| 23 24 20 2e 20 2d 38 37 | 38 29 29 0a 23 40 37 35 |#$ . -87|8)).#@75|
|000003f0| 20 2a 53 43 43 53 20 68 | 65 61 64 65 72 20 6b 65 | *SCCS h|eader ke|
|00000400| 79 77 6f 72 64 73 20 74 | 6f 20 62 65 20 69 6e 73 |ywords t|o be ins|
|00000410| 65 72 74 65 64 20 77 68 | 65 6e 20 73 63 63 73 2d |erted wh|en sccs-|
|00000420| 69 6e 73 65 72 74 2d 68 | 65 61 64 65 72 20 69 73 |insert-h|eader is|
|00000430| 20 65 78 65 63 75 74 65 | 64 2e 1f 0a 28 64 65 66 | execute|d...(def|
|00000440| 76 61 72 20 73 63 63 73 | 2d 68 65 61 64 65 72 73 |var sccs|-headers|
|00000450| 2d 77 61 6e 74 65 64 20 | 27 28 22 25 57 25 22 29 |-wanted |'("%W%")|
|00000460| 20 28 23 24 20 2e 20 2d | 31 30 30 39 29 29 0a 23 | (#$ . -|1009)).#|
|00000470| 40 37 34 20 2a 49 6e 73 | 65 72 74 20 61 20 73 74 |@74 *Ins|ert a st|
|00000480| 61 74 69 63 20 63 68 61 | 72 61 63 74 65 72 20 73 |atic cha|racter s|
|00000490| 74 72 69 6e 67 20 77 68 | 65 6e 20 69 6e 73 65 72 |tring wh|en inser|
|000004a0| 74 69 6e 67 20 53 43 43 | 53 20 68 65 61 64 65 72 |ting SCC|S header|
|000004b0| 73 20 69 6e 20 43 20 6d | 6f 64 65 2e 1f 0a 28 64 |s in C m|ode...(d|
|000004c0| 65 66 76 61 72 20 73 63 | 63 73 2d 69 6e 73 65 72 |efvar sc|cs-inser|
|000004d0| 74 2d 73 74 61 74 69 63 | 20 74 20 28 23 24 20 2e |t-static| t (#$ .|
|000004e0| 20 2d 31 31 34 30 29 29 | 0a 23 40 36 34 20 2a 54 | -1140))|.#@64 *T|
|000004f0| 72 65 61 74 20 75 73 65 | 72 20 61 73 20 65 78 70 |reat use|r as exp|
|00000500| 65 72 74 3b 20 73 75 70 | 70 72 65 73 73 20 79 65 |ert; sup|press ye|
|00000510| 73 2d 6e 6f 20 70 72 6f | 6d 70 74 73 20 6f 6e 20 |s-no pro|mpts on |
|00000520| 73 6f 6d 65 20 74 68 69 | 6e 67 73 2e 1f 0a 28 64 |some thi|ngs...(d|
|00000530| 65 66 76 61 72 20 73 63 | 63 73 2d 6d 6f 64 65 2d |efvar sc|cs-mode-|
|00000540| 65 78 70 65 72 74 20 6e | 69 6c 20 28 23 24 20 2e |expert n|il (#$ .|
|00000550| 20 2d 31 32 36 32 29 29 | 0a 28 62 79 74 65 2d 63 | -1262))|.(byte-c|
|00000560| 6f 64 65 20 22 c0 c1 21 | ac 82 c2 11 c1 0b 42 13 |ode "..!|......B.|
|00000570| c0 c4 21 ac 82 c2 14 c4 | 0b 42 13 c2 87 22 20 5b |..!.....|.B..." [|
|00000580| 62 6f 75 6e 64 70 20 73 | 63 63 73 2d 6c 6f 67 2d |boundp s|ccs-log-|
|00000590| 65 6e 74 72 79 2d 6d 6f | 64 65 20 6e 69 6c 20 63 |entry-mo|de nil c|
|000005a0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|000005b0| 20 73 63 63 73 2d 63 75 | 72 72 65 6e 74 2d 6d 61 | sccs-cu|rrent-ma|
|000005c0| 6a 6f 72 2d 76 65 72 73 | 69 6f 6e 5d 20 32 29 0a |jor-vers|ion] 2).|
|000005d0| 23 40 35 38 20 52 65 74 | 75 72 6e 20 74 68 65 20 |#@58 Ret|urn the |
|000005e0| 73 63 63 73 2d 66 69 6c | 65 20 6e 61 6d 65 20 63 |sccs-fil|e name c|
|000005f0| 6f 72 72 65 73 70 6f 6e | 64 69 6e 67 20 74 6f 20 |orrespon|ding to |
|00000600| 61 20 67 69 76 65 6e 20 | 66 69 6c 65 2e 1f 0a 28 |a given |file...(|
|00000610| 64 65 66 61 6c 69 61 73 | 20 27 73 63 63 73 2d 6e |defalias| 'sccs-n|
|00000620| 61 6d 65 20 23 5b 28 66 | 69 6c 65 20 26 6f 70 74 |ame #[(f|ile &opt|
|00000630| 69 6f 6e 61 6c 20 6c 65 | 74 74 65 72 29 20 22 c0 |ional le|tter) ".|
|00000640| c1 c2 c3 0c 21 21 b0 01 | 0d ae 81 c6 c7 c3 0c 21 |....!!..|.......!|
|00000650| 21 b0 01 24 87 22 20 5b | 66 6f 72 6d 61 74 20 22 |!..$." [|format "|
|00000660| 25 73 53 43 43 53 2f 25 | 73 2e 25 73 22 20 66 69 |%sSCCS/%|s.%s" fi|
|00000670| 6c 65 2d 6e 61 6d 65 2d | 64 69 72 65 63 74 6f 72 |le-name-|director|
|00000680| 79 20 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |y expand|-file-na|
|00000690| 6d 65 20 66 69 6c 65 20 | 6c 65 74 74 65 72 20 22 |me file |letter "|
|000006a0| 73 22 20 66 69 6c 65 2d | 6e 61 6d 65 2d 6e 6f 6e |s" file-|name-non|
|000006b0| 64 69 72 65 63 74 6f 72 | 79 5d 20 37 20 28 23 24 |director|y] 7 (#$|
|000006c0| 20 2e 20 31 34 39 33 29 | 5d 29 0a 23 40 35 37 20 | . 1493)|]).#@57 |
|000006d0| 52 65 74 75 72 6e 20 74 | 68 65 20 6e 74 68 20 74 |Return t|he nth t|
|000006e0| 6f 6b 65 6e 20 69 6e 20 | 61 20 66 69 6c 65 27 73 |oken in |a file's|
|000006f0| 20 53 43 43 53 2d 6c 6f | 63 6b 20 69 6e 66 6f 72 | SCCS-lo|ck infor|
|00000700| 6d 61 74 69 6f 6e 2e 1f | 0a 28 64 65 66 61 6c 69 |mation..|.(defali|
|00000710| 61 73 20 27 73 63 63 73 | 2d 6c 6f 63 6b 2d 69 6e |as 'sccs|-lock-in|
|00000720| 66 6f 20 23 5b 28 66 69 | 6c 65 20 69 6e 64 65 78 |fo #[(fi|le index|
|00000730| 29 20 22 c0 09 c2 5c 22 | 1b c4 0b 21 ad a7 8a c5 |) "...\"|...!....|
|00000740| 0b 21 88 c6 c7 21 88 65 | 62 88 c8 c9 ca 5c 22 88 |.!...!.e|b....\".|
|00000750| 65 62 88 0e 0b 79 88 60 | c7 7f 88 60 7b cc c7 21 |eb...y.`|...`{..!|
|00000760| 88 cd 70 21 88 29 29 87 | 22 20 5b 73 63 63 73 2d |..p!.)).|" [sccs-|
|00000770| 6e 61 6d 65 20 66 69 6c | 65 20 22 70 22 20 70 66 |name fil|e "p" pf|
|00000780| 69 6c 65 20 66 69 6c 65 | 2d 65 78 69 73 74 73 2d |ile file|-exists-|
|00000790| 70 20 66 69 6e 64 2d 66 | 69 6c 65 20 61 75 74 6f |p find-f|ile auto|
|000007a0| 2d 73 61 76 65 2d 6d 6f | 64 65 20 6e 69 6c 20 72 |-save-mo|de nil r|
|000007b0| 65 70 6c 61 63 65 2d 73 | 74 72 69 6e 67 20 22 20 |eplace-s|tring " |
|000007c0| 22 20 22 5c 6e 22 20 69 | 6e 64 65 78 20 73 65 74 |" "\n" i|ndex set|
|000007d0| 2d 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 |-buffer-|modified|
|000007e0| 2d 70 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 5d 20 |-p kill-|buffer] |
|000007f0| 33 20 28 23 24 20 2e 20 | 31 37 34 34 29 5d 29 0a |3 (#$ . |1744)]).|
|00000800| 23 40 31 30 34 20 52 65 | 74 75 72 6e 20 74 68 65 |#@104 Re|turn the|
|00000810| 20 6e 61 6d 65 20 6f 66 | 20 74 68 65 20 70 65 72 | name of| the per|
|00000820| 73 6f 6e 20 63 75 72 72 | 65 6e 74 6c 79 20 68 6f |son curr|ently ho|
|00000830| 6c 64 69 6e 67 20 61 20 | 6c 6f 63 6b 20 6f 6e 20 |lding a |lock on |
|00000840| 46 49 4c 45 2e 0a 52 65 | 74 75 72 6e 20 6e 69 6c |FILE..Re|turn nil|
|00000850| 20 69 66 20 74 68 65 72 | 65 20 69 73 20 6e 6f 20 | if ther|e is no |
|00000860| 73 75 63 68 20 70 65 72 | 73 6f 6e 2e 1f 0a 28 64 |such per|son...(d|
|00000870| 65 66 61 6c 69 61 73 20 | 27 73 63 63 73 2d 6c 6f |efalias |'sccs-lo|
|00000880| 63 6b 69 6e 67 2d 75 73 | 65 72 20 23 5b 28 66 69 |cking-us|er #[(fi|
|00000890| 6c 65 29 20 22 c0 09 c2 | 5c 22 87 22 20 5b 73 63 |le) "...|\"." [sc|
|000008a0| 63 73 2d 6c 6f 63 6b 2d | 69 6e 66 6f 20 66 69 6c |cs-lock-|info fil|
|000008b0| 65 20 32 5d 20 33 20 28 | 23 24 20 2e 20 32 30 35 |e 2] 3 (|#$ . 205|
|000008c0| 34 29 5d 29 0a 23 40 37 | 33 20 52 65 74 75 72 6e |4)]).#@7|3 Return|
|000008d0| 20 74 68 65 20 72 65 76 | 69 73 69 6f 6e 20 6e 75 | the rev|ision nu|
|000008e0| 6d 62 65 72 20 63 75 72 | 72 65 6e 74 6c 79 20 6c |mber cur|rently l|
|000008f0| 6f 63 6b 65 64 20 66 6f | 72 20 46 49 4c 45 2c 20 |ocked fo|r FILE, |
|00000900| 6e 69 6c 20 69 66 20 6e | 6f 6e 65 20 73 75 63 68 |nil if n|one such|
|00000910| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 63 |...(defa|lias 'sc|
|00000920| 63 73 2d 6c 6f 63 6b 65 | 64 2d 72 65 76 69 73 69 |cs-locke|d-revisi|
|00000930| 6f 6e 20 23 5b 28 66 69 | 6c 65 29 20 22 c0 09 c2 |on #[(fi|le) "...|
|00000940| 5c 22 87 22 20 5b 73 63 | 63 73 2d 6c 6f 63 6b 2d |\"." [sc|cs-lock-|
|00000950| 69 6e 66 6f 20 66 69 6c | 65 20 31 5d 20 33 20 28 |info fil|e 1] 3 (|
|00000960| 23 24 20 2e 20 32 32 35 | 30 29 5d 29 0a 28 64 65 |#$ . 225|0)]).(de|
|00000970| 66 61 6c 69 61 73 20 27 | 65 72 72 6f 72 2d 6f 63 |falias '|error-oc|
|00000980| 63 75 72 72 65 64 20 27 | 28 6d 61 63 72 6f 20 2e |curred '|(macro .|
|00000990| 20 23 5b 28 26 72 65 73 | 74 20 62 6f 64 79 29 20 | #[(&res|t body) |
|000009a0| 22 c0 c1 c2 c3 0c c5 5c | 22 42 c6 46 87 22 20 5b |"......\|"B.F." [|
|000009b0| 63 6f 6e 64 69 74 69 6f | 6e 2d 63 61 73 65 20 6e |conditio|n-case n|
|000009c0| 69 6c 20 70 72 6f 67 6e | 20 61 70 70 65 6e 64 20 |il progn| append |
|000009d0| 62 6f 64 79 20 28 6e 69 | 6c 29 20 28 65 72 72 6f |body (ni|l) (erro|
|000009e0| 72 20 74 29 5d 20 36 5d | 29 29 0a 28 64 65 66 61 |r t)] 6]|)).(defa|
|000009f0| 6c 69 61 73 20 27 63 68 | 6d 6f 64 20 27 28 6d 61 |lias 'ch|mod '(ma|
|00000a00| 63 72 6f 20 2e 20 23 5b | 28 70 65 72 6d 73 20 66 |cro . #[|(perms f|
|00000a10| 69 6c 65 29 20 22 c0 c1 | c2 89 89 0b 0c af 07 87 |ile) "..|........|
|00000a20| 22 20 5b 63 61 6c 6c 2d | 70 72 6f 63 65 73 73 20 |" [call-|process |
|00000a30| 22 63 68 6d 6f 64 22 20 | 6e 69 6c 20 70 65 72 6d |"chmod" |nil perm|
|00000a40| 73 20 66 69 6c 65 5d 20 | 37 5d 29 29 0a 28 64 65 |s file] |7])).(de|
|00000a50| 66 61 6c 69 61 73 20 27 | 73 63 63 73 2d 73 61 76 |falias '|sccs-sav|
|00000a60| 65 2d 76 61 72 73 20 23 | 5b 28 73 69 64 29 20 22 |e-vars #|[(sid) "|
|00000a70| 8a c0 c1 21 88 c2 20 88 | c3 0c c5 b1 03 88 c6 20 |...!.. .|....... |
|00000a80| 29 87 22 20 5b 66 69 6e | 64 2d 66 69 6c 65 20 22 |)." [fin|d-file "|
|00000a90| 53 43 43 53 2f 65 6d 61 | 63 73 2d 76 61 72 73 2e |SCCS/ema|cs-vars.|
|00000aa0| 65 6c 22 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |el" eras|e-buffer|
|00000ab0| 20 22 28 73 65 74 71 20 | 73 63 63 73 2d 63 75 72 | "(setq |sccs-cur|
|00000ac0| 72 65 6e 74 2d 6d 61 6a | 6f 72 2d 76 65 72 73 69 |rent-maj|or-versi|
|00000ad0| 6f 6e 20 5c 22 22 20 73 | 69 64 20 22 5c 22 29 22 |on \"" s|id "\")"|
|00000ae0| 20 62 61 73 69 63 2d 73 | 61 76 65 2d 62 75 66 66 | basic-s|ave-buff|
|00000af0| 65 72 5d 20 33 5d 29 0a | 28 64 65 66 61 6c 69 61 |er] 3]).|(defalia|
|00000b00| 73 20 27 73 63 63 73 2d | 6c 6f 61 64 2d 76 61 72 |s 'sccs-|load-var|
|00000b10| 73 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 8f ad 83 c3 |s #[nil |".......|
|00000b20| 89 14 87 22 20 5b 6e 69 | 6c 20 28 62 79 74 65 2d |..." [ni|l (byte-|
|00000b30| 63 6f 64 65 20 22 c0 c1 | 21 88 c2 87 22 20 5b 6c |code "..|!..." [l|
|00000b40| 6f 61 64 2d 66 69 6c 65 | 20 22 53 43 43 53 2f 65 |oad-file| "SCCS/e|
|00000b50| 6d 61 63 73 2d 76 61 72 | 73 2e 65 6c 22 20 6e 69 |macs-var|s.el" ni|
|00000b60| 6c 5d 20 32 29 20 28 28 | 65 72 72 6f 72 20 74 29 |l] 2) ((|error t)|
|00000b70| 29 20 22 31 22 20 73 63 | 63 73 2d 63 75 72 72 65 |) "1" sc|cs-curre|
|00000b80| 6e 74 2d 6d 61 6a 6f 72 | 2d 76 65 72 73 69 6f 6e |nt-major|-version|
|00000b90| 5d 20 33 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 3]).(d|efalias |
|00000ba0| 27 73 63 63 73 2d 69 6e | 69 74 2d 62 69 6e 2d 64 |'sccs-in|it-bin-d|
|00000bb0| 69 72 65 63 74 6f 72 79 | 20 23 5b 6e 69 6c 20 22 |irectory| #[nil "|
|00000bc0| c0 c1 21 ab 83 c2 aa 99 | c0 c3 21 ab 83 c4 aa 91 |..!.....|..!.....|
|00000bd0| c5 c2 21 ab 83 c2 aa 89 | c5 c6 21 ab 83 c6 aa 81 |..!.....|..!.....|
|00000be0| c4 89 16 07 87 22 20 5b | 66 69 6c 65 2d 65 78 65 |....." [|file-exe|
|00000bf0| 63 75 74 61 62 6c 65 2d | 70 20 22 2f 75 73 72 2f |cutable-|p "/usr/|
|00000c00| 73 63 63 73 2f 75 6e 67 | 65 74 22 20 22 2f 75 73 |sccs/ung|et" "/us|
|00000c10| 72 2f 73 63 63 73 22 20 | 22 2f 75 73 72 2f 62 69 |r/sccs" |"/usr/bi|
|00000c20| 6e 2f 75 6e 67 65 74 22 | 20 22 2f 75 73 72 2f 62 |n/unget"| "/usr/b|
|00000c30| 69 6e 22 20 66 69 6c 65 | 2d 64 69 72 65 63 74 6f |in" file|-directo|
|00000c40| 72 79 2d 70 20 22 2f 75 | 73 72 2f 62 69 6e 2f 73 |ry-p "/u|sr/bin/s|
|00000c50| 63 63 73 22 20 73 63 63 | 73 2d 62 69 6e 2d 64 69 |ccs" scc|s-bin-di|
|00000c60| 72 65 63 74 6f 72 79 5d | 20 32 5d 29 0a 23 40 31 |rectory]| 2]).#@1|
|00000c70| 36 38 20 46 6f 72 20 74 | 68 65 20 67 69 76 65 6e |68 For t|he given|
|00000c80| 20 46 49 4c 45 2c 20 72 | 65 74 72 69 65 76 65 20 | FILE, r|etrieve |
|00000c90| 61 20 63 6f 70 79 20 6f | 66 20 74 68 65 20 76 65 |a copy o|f the ve|
|00000ca0| 72 73 69 6f 6e 20 77 69 | 74 68 20 67 69 76 65 6e |rsion wi|th given|
|00000cb0| 20 53 49 44 2e 0a 54 68 | 65 20 74 65 78 74 20 69 | SID..Th|e text i|
|00000cc0| 73 20 72 65 74 72 69 65 | 76 65 64 20 69 6e 74 6f |s retrie|ved into|
|00000cd0| 20 61 20 74 65 6d 70 66 | 69 6c 65 2e 20 20 52 65 | a tempf|ile.  Re|
|00000ce0| 74 75 72 6e 20 74 68 65 | 20 74 65 6d 70 66 69 6c |turn the| tempfil|
|00000cf0| 65 20 6e 61 6d 65 2c 20 | 6f 72 20 6e 69 6c 0a 69 |e name, |or nil.i|
|00000d00| 66 20 6e 6f 20 73 75 63 | 68 20 76 65 72 73 69 6f |f no suc|h versio|
|00000d10| 6e 20 65 78 69 73 74 73 | 2e 1f 0a 28 64 65 66 61 |n exists|...(defa|
|00000d20| 6c 69 61 73 20 27 73 63 | 63 73 2d 67 65 74 2d 76 |lias 'sc|cs-get-v|
|00000d30| 65 72 73 69 6f 6e 20 23 | 5b 28 66 69 6c 65 20 73 |ersion #|[(file s|
|00000d40| 69 64 29 20 22 c0 89 19 | 1a c3 0c 0d ae 81 c6 5c |id) "...|.......\|
|00000d50| 22 12 c7 5c 6e 21 11 c0 | c8 c9 8f 3f ad 8e 8a 09 |"..\n!..|...?....|
|00000d60| 71 88 ca 65 64 5c 6e cb | cc 25 88 5c 6e 29 cd 09 |q..ed\n.|.%.\n)..|
|00000d70| 21 88 2a 87 22 20 5b 6e | 69 6c 20 76 62 75 66 20 |!.*." [n|il vbuf |
|00000d80| 6f 6c 64 76 65 72 73 69 | 6f 6e 20 73 63 63 73 2d |oldversi|on sccs-|
|00000d90| 6e 61 6d 65 20 66 69 6c | 65 20 73 69 64 20 22 6e |name fil|e sid "n|
|00000da0| 65 77 22 20 63 72 65 61 | 74 65 2d 66 69 6c 65 2d |ew" crea|te-file-|
|00000db0| 62 75 66 66 65 72 20 28 | 62 79 74 65 2d 63 6f 64 |buffer (|byte-cod|
|00000dc0| 65 20 22 c0 09 c2 0b 0c | ad 83 c5 0c 50 c6 c7 26 |e ".....|....P..&|
|00000dd0| 06 88 c8 87 22 20 5b 73 | 63 63 73 2d 64 6f 2d 63 |...." [s|ccs-do-c|
|00000de0| 6f 6d 6d 61 6e 64 20 76 | 62 75 66 20 22 67 65 74 |ommand v|buf "get|
|00000df0| 22 20 66 69 6c 65 20 73 | 69 64 20 22 2d 72 22 20 |" file s|id "-r" |
|00000e00| 22 2d 70 22 20 22 2d 73 | 22 20 6e 69 6c 5d 20 37 |"-p" "-s|" nil] 7|
|00000e10| 29 20 28 28 65 72 72 6f | 72 20 74 29 29 20 77 72 |) ((erro|r t)) wr|
|00000e20| 69 74 65 2d 72 65 67 69 | 6f 6e 20 74 20 30 20 6b |ite-regi|on t 0 k|
|00000e30| 69 6c 6c 2d 62 75 66 66 | 65 72 5d 20 36 20 28 23 |ill-buff|er] 6 (#|
|00000e40| 24 20 2e 20 33 31 38 37 | 29 5d 29 0a 23 40 39 34 |$ . 3187|)]).#@94|
|00000e50| 20 53 65 74 20 74 68 65 | 20 6d 6f 64 65 20 6c 69 | Set the| mode li|
|00000e60| 6e 65 20 66 6f 72 20 61 | 6e 20 53 43 43 53 20 62 |ne for a|n SCCS b|
|00000e70| 75 66 66 65 72 2e 0a 46 | 49 4c 45 20 69 73 20 74 |uffer..F|ILE is t|
|00000e80| 68 65 20 66 69 6c 65 20 | 62 65 69 6e 67 20 76 69 |he file |being vi|
|00000e90| 73 69 74 65 64 20 74 6f | 20 70 75 74 20 69 6e 20 |sited to| put in |
|00000ea0| 74 68 65 20 6d 6f 64 65 | 6c 69 6e 65 2e 1f 0a 28 |the mode|line...(|
|00000eb0| 64 65 66 61 6c 69 61 73 | 20 27 73 63 63 73 2d 6d |defalias| 'sccs-m|
|00000ec0| 6f 64 65 2d 6c 69 6e 65 | 20 23 5b 28 66 69 6c 65 |ode-line| #[(file|
|00000ed0| 29 20 22 c0 c1 5c 6e c3 | 5c 22 21 ab 88 c4 c5 c6 |) "..\n.|\"!.....|
|00000ee0| 5c 6e 21 5c 22 aa 81 c7 | 16 08 8a c9 20 71 88 29 |\n!\"...|.... q.)|
|00000ef0| ca cb 21 87 22 20 5b 66 | 69 6c 65 2d 65 78 69 73 |..!." [f|ile-exis|
|00000f00| 74 73 2d 70 20 73 63 63 | 73 2d 6e 61 6d 65 20 66 |ts-p scc|s-name f|
|00000f10| 69 6c 65 20 22 70 22 20 | 66 6f 72 6d 61 74 20 22 |ile "p" |format "|
|00000f20| 20 3c 53 43 43 53 3a 20 | 25 73 3e 22 20 73 63 63 | <SCCS: |%s>" scc|
|00000f30| 73 2d 6c 6f 63 6b 65 64 | 2d 72 65 76 69 73 69 6f |s-locked|-revisio|
|00000f40| 6e 20 22 22 20 6d 6f 64 | 65 2d 6c 69 6e 65 2d 70 |n "" mod|e-line-p|
|00000f50| 72 6f 63 65 73 73 20 6f | 74 68 65 72 2d 62 75 66 |rocess o|ther-buf|
|00000f60| 66 65 72 20 73 69 74 2d | 66 6f 72 20 30 5d 20 34 |fer sit-|for 0] 4|
|00000f70| 20 28 23 24 20 2e 20 33 | 36 36 35 29 5d 29 0a 23 | (#$ . 3|665)]).#|
|00000f80| 40 37 32 20 20 20 45 78 | 65 63 75 74 65 20 61 6e |@72   Ex|ecute an|
|00000f90| 20 53 43 43 53 20 63 6f | 6d 6d 61 6e 64 2c 20 6e | SCCS co|mmand, n|
|00000fa0| 6f 74 69 66 79 69 6e 67 | 20 74 68 65 20 75 73 65 |otifying| the use|
|00000fb0| 72 20 61 6e 64 20 63 68 | 65 63 6b 69 6e 67 20 66 |r and ch|ecking f|
|00000fc0| 6f 72 20 65 72 72 6f 72 | 73 2e 1f 0a 28 64 65 66 |or error|s...(def|
|00000fd0| 61 6c 69 61 73 20 27 73 | 63 63 73 2d 64 6f 2d 63 |alias 's|ccs-do-c|
|00000fe0| 6f 6d 6d 61 6e 64 20 23 | 5b 28 62 75 66 66 65 72 |ommand #|[(buffer|
|00000ff0| 20 63 6f 6d 6d 61 6e 64 | 20 66 69 6c 65 20 26 72 | command| file &r|
|00001000| 65 73 74 20 66 6c 61 67 | 73 29 20 22 c0 09 21 11 |est flag|s) "..!.|
|00001010| c2 c3 0c 09 23 88 0d ac | 83 c6 20 88 c7 8b 89 1e |....#...|.. .....|
|00001020| 08 ab 87 c2 c9 0c 5c 22 | 88 aa 8a ca 0e 0b 21 88 |......\"|......!.|
|00001030| cc cd 0c 5c 22 88 29 09 | ad 83 ce 09 21 87 22 20 |...\".).|....!." |
|00001040| 5b 65 78 70 61 6e 64 2d | 66 69 6c 65 2d 6e 61 6d |[expand-|file-nam|
|00001050| 65 20 66 69 6c 65 20 6d | 65 73 73 61 67 65 20 22 |e file m|essage "|
|00001060| 52 75 6e 6e 69 6e 67 20 | 25 73 20 6f 6e 20 25 73 |Running |%s on %s|
|00001070| 2e 2e 2e 22 20 63 6f 6d | 6d 61 6e 64 20 73 63 63 |..." com|mand scc|
|00001080| 73 2d 62 69 6e 2d 64 69 | 72 65 63 74 6f 72 79 20 |s-bin-di|rectory |
|00001090| 73 63 63 73 2d 69 6e 69 | 74 2d 62 69 6e 2d 64 69 |sccs-ini|t-bin-di|
|000010a0| 72 65 63 74 6f 72 79 20 | 28 28 62 79 74 65 2d 63 |rectory |((byte-c|
|000010b0| 6f 64 65 20 22 c0 09 21 | 71 88 c2 20 88 0b ab 8a |ode "..!|q.. ....|
|000010c0| 0b 40 ac 86 0b 41 89 13 | ac 76 c4 0b 0d ad 84 c6 |.@...A..|.v......|
|000010d0| 0d 21 43 5c 22 13 c7 0d | ae 81 c8 21 0e 09 0e 5c |.!C\"...|...!...\|
|000010e0| 6e 42 1e 5c 6e 1e 0b cc | cd 0e 0e cf d0 cf 0b 26 |nB.\n...|.......&|
|000010f0| 06 88 2a 64 62 88 d1 d2 | 21 88 d3 d4 21 ab 91 d1 |..*db...|!...!...|
|00001100| d2 21 88 d5 0e 0e 0b 42 | 21 88 d6 d2 21 88 cf 87 |.!.....B|!...!...|
|00001110| d0 87 22 20 5b 67 65 74 | 2d 62 75 66 66 65 72 2d |.." [get|-buffer-|
|00001120| 63 72 65 61 74 65 20 62 | 75 66 66 65 72 20 65 72 |create b|uffer er|
|00001130| 61 73 65 2d 62 75 66 66 | 65 72 20 66 6c 61 67 73 |ase-buff|er flags|
|00001140| 20 61 70 70 65 6e 64 20 | 66 69 6c 65 20 73 63 63 | append |file scc|
|00001150| 73 2d 6e 61 6d 65 20 66 | 69 6c 65 2d 6e 61 6d 65 |s-name f|ile-name|
|00001160| 2d 64 69 72 65 63 74 6f | 72 79 20 22 2e 2f 22 20 |-directo|ry "./" |
|00001170| 73 63 63 73 2d 62 69 6e | 2d 64 69 72 65 63 74 6f |sccs-bin|-directo|
|00001180| 72 79 20 65 78 65 63 2d | 70 61 74 68 20 64 65 66 |ry exec-|path def|
|00001190| 61 75 6c 74 2d 64 69 72 | 65 63 74 6f 72 79 20 61 |ault-dir|ectory a|
|000011a0| 70 70 6c 79 20 63 61 6c | 6c 2d 70 72 6f 63 65 73 |pply cal|l-proces|
|000011b0| 73 20 63 6f 6d 6d 61 6e | 64 20 6e 69 6c 20 74 20 |s comman|d nil t |
|000011c0| 70 72 65 76 69 6f 75 73 | 2d 6c 69 6e 65 20 31 20 |previous|-line 1 |
|000011d0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 45 52 52 4f |looking-|at "ERRO|
|000011e0| 52 22 20 70 72 69 6e 74 | 20 6e 65 78 74 2d 6c 69 |R" print| next-li|
|000011f0| 6e 65 5d 20 38 29 29 20 | 73 74 61 74 75 73 20 22 |ne] 8)) |status "|
|00001200| 52 75 6e 6e 69 6e 67 20 | 25 73 2e 2e 2e 4f 4b 22 |Running |%s...OK"|
|00001210| 20 70 6f 70 2d 74 6f 2d | 62 75 66 66 65 72 20 62 | pop-to-|buffer b|
|00001220| 75 66 66 65 72 20 65 72 | 72 6f 72 20 22 52 75 6e |uffer er|ror "Run|
|00001230| 6e 69 6e 67 20 25 73 2e | 2e 2e 46 41 49 4c 45 44 |ning %s.|..FAILED|
|00001240| 22 20 73 63 63 73 2d 6d | 6f 64 65 2d 6c 69 6e 65 |" sccs-m|ode-line|
|00001250| 5d 20 35 20 28 23 24 20 | 2e 20 33 39 37 32 29 5d |] 5 (#$ |. 3972)]|
|00001260| 29 0a 23 40 31 32 31 20 | 4c 69 6b 65 20 73 68 65 |).#@121 |Like she|
|00001270| 6c 6c 2d 63 6f 6d 6d 61 | 6e 64 20 65 78 63 65 70 |ll-comma|nd excep|
|00001280| 74 20 74 68 61 74 20 74 | 68 65 20 2a 53 68 65 6c |t that t|he *Shel|
|00001290| 6c 20 43 6f 6d 6d 61 6e | 64 20 4f 75 74 70 75 74 |l Comman|d Output|
|000012a0| 2a 62 75 66 66 65 72 0a | 69 73 20 63 72 65 61 74 |*buffer.|is creat|
|000012b0| 65 64 20 65 76 65 6e 20 | 69 66 20 74 68 65 20 63 |ed even |if the c|
|000012c0| 6f 6d 6d 61 6e 64 20 64 | 6f 65 73 20 6e 6f 74 20 |ommand d|oes not |
|000012d0| 6f 75 74 70 75 74 20 61 | 6e 79 74 68 69 6e 67 1f |output a|nything.|
|000012e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 63 63 73 |.(defali|as 'sccs|
|000012f0| 2d 73 68 65 6c 6c 2d 63 | 6f 6d 6d 61 6e 64 20 23 |-shell-c|ommand #|
|00001300| 5b 28 63 6f 6d 6d 61 6e | 64 29 20 22 c0 09 21 88 |[(comman|d) "..!.|
|00001310| c2 c3 21 87 22 20 5b 73 | 68 65 6c 6c 2d 63 6f 6d |..!." [s|hell-com|
|00001320| 6d 61 6e 64 20 63 6f 6d | 6d 61 6e 64 20 67 65 74 |mand com|mand get|
|00001330| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 22 |-buffer-|create "|
|00001340| 2a 53 68 65 6c 6c 20 43 | 6f 6d 6d 61 6e 64 20 4f |*Shell C|ommand O|
|00001350| 75 74 70 75 74 2a 22 5d | 20 32 20 28 23 24 20 2e |utput*"]| 2 (#$ .|
|00001360| 20 34 37 31 32 29 5d 29 | 0a 23 40 39 36 20 41 70 | 4712)])|.#@96 Ap|
|00001370| 70 6c 79 20 46 55 4e 43 | 20 74 6f 20 65 61 63 68 |ply FUNC| to each|
|00001380| 20 53 43 43 53 20 66 69 | 6c 65 20 75 6e 64 65 72 | SCCS fi|le under|
|00001390| 20 74 68 65 20 64 65 66 | 61 75 6c 74 20 64 69 72 | the def|ault dir|
|000013a0| 65 63 74 6f 72 79 2e 0a | 49 66 20 70 72 65 73 65 |ectory..|If prese|
|000013b0| 6e 74 2c 20 4f 50 54 41 | 52 47 53 20 61 72 65 20 |nt, OPTA|RGS are |
|000013c0| 61 6c 73 6f 20 70 61 73 | 73 65 64 2e 1f 0a 28 64 |also pas|sed...(d|
|000013d0| 65 66 61 6c 69 61 73 20 | 27 73 63 63 73 2d 74 72 |efalias |'sccs-tr|
|000013e0| 65 65 2d 77 61 6c 6b 20 | 23 5b 28 66 75 6e 63 20 |ee-walk |#[(func |
|000013f0| 26 72 65 73 74 20 6f 70 | 74 61 72 67 73 29 20 22 |&rest op|targs) "|
|00001400| c0 c1 5c 6e c3 51 21 88 | c4 71 88 65 62 88 c5 c6 |..\n.Q!.|.q.eb...|
|00001410| c7 5c 22 88 65 62 88 6d | ab 85 c8 c9 5c 6e 5c 22 |.\".eb.m|....\n\"|
|00001420| 88 6d 3f ad 97 60 ca 7f | 88 60 7b 1e 0b cc 0e 0d |.m?..`..|.`{.....|
|00001430| 0e 0b 0e 0e 23 88 29 cf | 79 88 aa 65 87 22 20 5b |....#.).|y..e." [|
|00001440| 73 63 63 73 2d 73 68 65 | 6c 6c 2d 63 6f 6d 6d 61 |sccs-she|ll-comma|
|00001450| 6e 64 20 22 2f 62 69 6e | 2f 6c 73 20 2d 31 20 22 |nd "/bin|/ls -1 "|
|00001460| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f | default|-directo|
|00001470| 72 79 20 22 53 43 43 53 | 2f 73 2e 2a 22 20 22 2a |ry "SCCS|/s.*" "*|
|00001480| 53 68 65 6c 6c 20 43 6f | 6d 6d 61 6e 64 20 4f 75 |Shell Co|mmand Ou|
|00001490| 74 70 75 74 2a 22 20 72 | 65 70 6c 61 63 65 2d 73 |tput*" r|eplace-s|
|000014a0| 74 72 69 6e 67 20 22 53 | 43 43 53 2f 73 2e 22 20 |tring "S|CCS/s." |
|000014b0| 22 22 20 65 72 72 6f 72 | 20 22 4e 6f 20 53 43 43 |"" error| "No SCC|
|000014c0| 53 20 66 69 6c 65 73 20 | 75 6e 64 65 72 20 25 73 |S files |under %s|
|000014d0| 22 20 6e 69 6c 20 66 69 | 6c 65 20 61 70 70 6c 79 |" nil fi|le apply|
|000014e0| 20 66 75 6e 63 20 6f 70 | 74 61 72 67 73 20 31 5d | func op|targs 1]|
|000014f0| 20 34 20 28 23 24 20 2e | 20 34 39 37 34 29 5d 29 | 4 (#$ .| 4974)])|
|00001500| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 63 63 73 |.(defali|as 'sccs|
|00001510| 2d 69 6e 69 74 20 23 5b | 6e 69 6c 20 22 c0 20 ac |-init #[|nil ". .|
|00001520| 85 c1 c2 20 21 88 c3 c4 | c5 8f 87 22 20 5b 63 75 |... !...|..." [cu|
|00001530| 72 72 65 6e 74 2d 6c 6f | 63 61 6c 2d 6d 61 70 20 |rrent-lo|cal-map |
|00001540| 75 73 65 2d 6c 6f 63 61 | 6c 2d 6d 61 70 20 6d 61 |use-loca|l-map ma|
|00001550| 6b 65 2d 73 70 61 72 73 | 65 2d 6b 65 79 6d 61 70 |ke-spars|e-keymap|
|00001560| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00001570| 22 c0 c1 20 c2 c3 23 88 | c0 c1 20 c4 c5 23 88 c0 |".. ..#.|.. ..#..|
|00001580| c1 20 c6 c7 23 88 c0 c1 | 20 c8 c9 23 88 c0 c1 20 |. ..#...| ..#... |
|00001590| ca cb 23 88 c0 c1 20 cc | cd 23 88 c0 c1 20 ce cf |..#... .|.#... ..|
|000015a0| 23 88 c0 c1 20 d0 d1 23 | 88 c0 c1 20 d2 d3 23 88 |#... ..#|... ..#.|
|000015b0| c0 c1 20 d4 d5 23 87 22 | 20 5b 64 65 66 69 6e 65 |.. ..#."| [define|
|000015c0| 2d 6b 65 79 20 63 75 72 | 72 65 6e 74 2d 6c 6f 63 |-key cur|rent-loc|
|000015d0| 61 6c 2d 6d 61 70 20 22 | 03 73 3f 22 20 64 65 73 |al-map "|.s?" des|
|000015e0| 63 72 69 62 65 2d 6d 6f | 64 65 20 22 03 73 6e 22 |cribe-mo|de ".sn"|
|000015f0| 20 73 63 63 73 20 22 03 | 73 6d 22 20 73 63 63 73 | sccs ".|sm" sccs|
|00001600| 2d 72 65 67 69 73 74 65 | 72 2d 66 69 6c 65 20 22 |-registe|r-file "|
|00001610| 03 73 68 22 20 73 63 63 | 73 2d 69 6e 73 65 72 74 |.sh" scc|s-insert|
|00001620| 2d 68 65 61 64 65 72 73 | 20 22 03 73 64 22 20 73 |-headers| ".sd" s|
|00001630| 63 63 73 2d 72 65 76 65 | 72 74 2d 64 69 66 66 20 |ccs-reve|rt-diff |
|00001640| 22 03 73 70 22 20 73 63 | 63 73 2d 70 72 73 20 22 |".sp" sc|cs-prs "|
|00001650| 03 73 72 22 20 73 63 63 | 73 2d 72 65 76 65 72 74 |.sr" scc|s-revert|
|00001660| 2d 62 75 66 66 65 72 20 | 22 03 73 04 22 20 73 63 |-buffer |".s." sc|
|00001670| 63 73 2d 76 65 72 73 69 | 6f 6e 2d 64 69 66 66 20 |cs-versi|on-diff |
|00001680| 22 03 73 10 22 20 73 63 | 63 73 2d 70 65 6e 64 69 |".s." sc|cs-pendi|
|00001690| 6e 67 20 22 03 73 12 22 | 20 73 63 63 73 2d 72 65 |ng ".s."| sccs-re|
|000016a0| 67 69 73 74 65 72 65 64 | 5d 20 34 29 20 28 28 65 |gistered|] 4) ((e|
|000016b0| 72 72 6f 72 29 29 5d 20 | 33 5d 29 0a 23 40 36 36 |rror))] |3]).#@66|
|000016c0| 31 20 2a 44 6f 20 74 68 | 65 20 6e 65 78 74 20 6c |1 *Do th|e next l|
|000016d0| 6f 67 69 63 61 6c 20 53 | 43 43 53 20 6f 70 65 72 |ogical S|CCS oper|
|000016e0| 61 74 69 6f 6e 20 6f 6e | 20 74 68 65 20 66 69 6c |ation on| the fil|
|000016f0| 65 20 69 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |e in the| current|
|00001700| 20 62 75 66 66 65 72 2e | 0a 59 6f 75 20 6d 75 73 | buffer.|.You mus|
|00001710| 74 20 68 61 76 65 20 61 | 6e 20 53 43 43 53 20 73 |t have a|n SCCS s|
|00001720| 75 62 64 69 72 65 63 74 | 6f 72 79 20 69 6e 20 74 |ubdirect|ory in t|
|00001730| 68 65 20 73 61 6d 65 20 | 64 69 72 65 63 74 6f 72 |he same |director|
|00001740| 79 20 61 73 20 74 68 65 | 20 66 69 6c 65 20 62 65 |y as the| file be|
|00001750| 69 6e 67 0a 6f 70 65 72 | 61 74 65 64 20 6f 6e 2e |ing.oper|ated on.|
|00001760| 0a 20 20 20 49 66 20 74 | 68 65 20 66 69 6c 65 20 |.   If t|he file |
|00001770| 69 73 20 6e 6f 74 20 61 | 6c 72 65 61 64 79 20 72 |is not a|lready r|
|00001780| 65 67 69 73 74 65 72 65 | 64 20 77 69 74 68 20 53 |egistere|d with S|
|00001790| 43 43 53 2c 20 74 68 69 | 73 20 64 6f 65 73 20 61 |CCS, thi|s does a|
|000017a0| 6e 20 61 64 6d 69 6e 20 | 2d 69 0a 66 6f 6c 6c 6f |n admin |-i.follo|
|000017b0| 77 65 64 20 62 79 20 61 | 20 67 65 74 20 2d 65 2e |wed by a| get -e.|
|000017c0| 0a 20 20 20 49 66 20 74 | 68 65 20 66 69 6c 65 20 |.   If t|he file |
|000017d0| 69 73 20 72 65 67 69 73 | 74 65 72 65 64 20 61 6e |is regis|tered an|
|000017e0| 64 20 6e 6f 74 20 6c 6f | 63 6b 65 64 20 62 79 20 |d not lo|cked by |
|000017f0| 61 6e 79 6f 6e 65 2c 20 | 74 68 69 73 20 64 6f 65 |anyone, |this doe|
|00001800| 73 20 61 20 67 65 74 20 | 2d 65 2e 0a 20 20 20 49 |s a get |-e..   I|
|00001810| 66 20 74 68 65 20 66 69 | 6c 65 20 69 73 20 72 65 |f the fi|le is re|
|00001820| 67 69 73 74 65 72 65 64 | 20 61 6e 64 20 6c 6f 63 |gistered| and loc|
|00001830| 6b 65 64 20 62 79 20 74 | 68 65 20 63 61 6c 6c 69 |ked by t|he calli|
|00001840| 6e 67 20 75 73 65 72 2c | 20 74 68 69 73 20 70 6f |ng user,| this po|
|00001850| 70 73 20 75 70 20 61 0a | 62 75 66 66 65 72 20 66 |ps up a.|buffer f|
|00001860| 6f 72 20 63 72 65 61 74 | 69 6f 6e 20 6f 66 20 61 |or creat|ion of a|
|00001870| 20 6c 6f 67 20 6d 65 73 | 73 61 67 65 2c 20 74 68 | log mes|sage, th|
|00001880| 65 6e 20 64 6f 65 73 20 | 61 20 64 65 6c 74 61 20 |en does |a delta |
|00001890| 2d 6e 20 6f 6e 20 74 68 | 65 20 66 69 6c 65 2e 0a |-n on th|e file..|
|000018a0| 41 20 72 65 61 64 2d 6f | 6e 6c 79 20 63 6f 70 79 |A read-o|nly copy|
|000018b0| 20 6f 66 20 74 68 65 20 | 63 68 61 6e 67 65 64 20 | of the |changed |
|000018c0| 66 69 6c 65 20 69 73 20 | 6c 65 66 74 20 69 6e 20 |file is |left in |
|000018d0| 70 6c 61 63 65 20 61 66 | 74 65 72 77 61 72 64 73 |place af|terwards|
|000018e0| 2e 0a 20 20 20 49 66 20 | 74 68 65 20 66 69 6c 65 |..   If |the file|
|000018f0| 20 69 73 20 72 65 67 69 | 73 74 65 72 65 64 20 61 | is regi|stered a|
|00001900| 6e 64 20 6c 6f 63 6b 65 | 64 20 62 79 20 73 6f 6d |nd locke|d by som|
|00001910| 65 6f 6e 65 20 65 6c 73 | 65 2c 20 61 6e 20 65 72 |eone els|e, an er|
|00001920| 72 6f 72 20 6d 65 73 73 | 61 67 65 20 69 73 0a 72 |ror mess|age is.r|
|00001930| 65 74 75 72 6e 65 64 20 | 69 6e 64 69 63 61 74 69 |eturned |indicati|
|00001940| 6e 67 20 77 68 6f 20 68 | 61 73 20 6c 6f 63 6b 65 |ng who h|as locke|
|00001950| 64 20 69 74 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |d it...(|defalias|
|00001960| 20 27 73 63 63 73 20 23 | 5b 28 76 65 72 62 6f 73 | 'sccs #|[(verbos|
|00001970| 65 29 20 22 c0 20 88 c1 | 20 83 c5 00 c2 89 89 c1 |e) ". ..| .......|
|00001980| 20 c3 c1 20 21 c4 c5 21 | c2 1e 06 1e 07 1e 08 1e | .. !..!|........|
|00001990| 09 1e 5c 6e 1e 0b 1e 0c | cd 0e 08 21 ac 9c ce 20 |..\n....|...!... |
|000019a0| 88 cf 0e 09 0e 10 ab 85 | d1 d2 21 aa 8b c2 d3 d4 |........|..!.....|
|000019b0| 8f ab 83 d5 aa 82 0e 16 | 5c 22 88 cd c3 0e 09 d7 |........|\"......|
|000019c0| 5c 22 21 ac 91 d8 0e 09 | d9 5c 22 88 da c2 d9 5c |\"!.....|.\"....\|
|000019d0| 22 88 db 0e 09 21 aa e3 | dc 0e 09 21 89 16 5c 6e |"....!..|...!..\n|
|000019e0| dd 20 98 ac 87 de df 0e | 5c 6e 5c 22 aa d0 e0 20 |. ......|\n\"... |
|000019f0| ab 90 0e 21 ac 89 e2 e3 | e4 e5 20 5c 22 21 ab 83 |...!....|.. \"!..|
|00001a00| e6 20 88 e7 0e 09 21 16 | 0b 0e 10 ab 92 0e 21 ac |. ....!.|......!.|
|00001a10| 89 e2 e3 e8 0e 0b 5c 22 | 21 ab 85 d1 e9 21 16 0b |......\"|!....!..|
|00001a20| ea 8b ad 9c e0 20 ab 85 | de eb 21 aa 93 d8 0e 09 |..... ..|..!.....|
|00001a30| c2 5c 22 88 da c2 d9 5c | 22 88 db 0e 09 21 88 ec |.\"....\|"....!..|
|00001a40| ed 21 2e 07 87 de ee e5 | 20 5c 22 87 22 20 5b 73 |.!......| \"." [s|
|00001a50| 63 63 73 2d 69 6e 69 74 | 20 62 75 66 66 65 72 2d |ccs-init| buffer-|
|00001a60| 66 69 6c 65 2d 6e 61 6d | 65 20 6e 69 6c 20 73 63 |file-nam|e nil sc|
|00001a70| 63 73 2d 6e 61 6d 65 20 | 67 65 74 2d 62 75 66 66 |cs-name |get-buff|
|00001a80| 65 72 2d 63 72 65 61 74 | 65 20 22 2a 53 43 43 53 |er-creat|e "*SCCS|
|00001a90| 2d 4c 6f 67 2a 22 20 65 | 72 72 2d 6d 73 67 20 73 |-Log*" e|rr-msg s|
|00001aa0| 63 63 73 2d 6c 6f 67 2d | 62 75 66 20 73 63 63 73 |ccs-log-|buf sccs|
|00001ab0| 2d 66 69 6c 65 20 66 69 | 6c 65 20 6f 77 6e 65 72 |-file fi|le owner|
|00001ac0| 20 72 65 76 69 73 69 6f | 6e 20 64 6f 2d 75 70 64 | revisio|n do-upd|
|00001ad0| 61 74 65 20 66 69 6c 65 | 2d 65 78 69 73 74 73 2d |ate file|-exists-|
|00001ae0| 70 20 73 63 63 73 2d 6c | 6f 61 64 2d 76 61 72 73 |p sccs-l|oad-vars|
|00001af0| 20 73 63 63 73 2d 61 64 | 6d 69 6e 20 76 65 72 62 | sccs-ad|min verb|
|00001b00| 6f 73 65 20 72 65 61 64 | 2d 73 74 72 69 6e 67 20 |ose read|-string |
|00001b10| 22 49 6e 69 74 69 61 6c | 20 53 49 44 3a 20 22 20 |"Initial| SID: " |
|00001b20| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 88 |(byte-co|de "..!.|
|00001b30| c2 87 22 20 5b 6c 6f 61 | 64 2d 66 69 6c 65 20 22 |.." [loa|d-file "|
|00001b40| 53 43 43 53 2f 65 6d 61 | 63 73 2d 76 61 72 73 2e |SCCS/ema|cs-vars.|
|00001b50| 65 6c 22 20 6e 69 6c 5d | 20 32 29 20 28 28 65 72 |el" nil]| 2) ((er|
|00001b60| 72 6f 72 20 74 29 29 20 | 22 31 22 20 73 63 63 73 |ror t)) |"1" sccs|
|00001b70| 2d 63 75 72 72 65 6e 74 | 2d 6d 61 6a 6f 72 2d 76 |-current|-major-v|
|00001b80| 65 72 73 69 6f 6e 20 22 | 70 22 20 73 63 63 73 2d |ersion "|p" sccs-|
|00001b90| 67 65 74 20 74 20 72 65 | 76 65 72 74 2d 62 75 66 |get t re|vert-buf|
|00001ba0| 66 65 72 20 73 63 63 73 | 2d 6d 6f 64 65 2d 6c 69 |fer sccs|-mode-li|
|00001bb0| 6e 65 20 73 63 63 73 2d | 6c 6f 63 6b 69 6e 67 2d |ne sccs-|locking-|
|00001bc0| 75 73 65 72 20 75 73 65 | 72 2d 6c 6f 67 69 6e 2d |user use|r-login-|
|00001bd0| 6e 61 6d 65 20 65 72 72 | 6f 72 20 22 53 6f 72 72 |name err|or "Sorr|
|00001be0| 79 2c 20 25 73 20 68 61 | 73 20 74 68 61 74 20 66 |y, %s ha|s that f|
|00001bf0| 69 6c 65 20 63 68 65 63 | 6b 65 64 20 6f 75 74 22 |ile chec|ked out"|
|00001c00| 20 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 | buffer-|modified|
|00001c10| 2d 70 20 73 63 63 73 2d | 6d 6f 64 65 2d 65 78 70 |-p sccs-|mode-exp|
|00001c20| 65 72 74 20 79 2d 6f 72 | 2d 6e 2d 70 20 66 6f 72 |ert y-or|-n-p for|
|00001c30| 6d 61 74 20 22 25 73 20 | 68 61 73 20 62 65 65 6e |mat "%s |has been|
|00001c40| 20 6d 6f 64 69 66 69 65 | 64 2e 20 57 72 69 74 65 | modifie|d. Write|
|00001c50| 20 69 74 20 6f 75 74 3f | 20 22 20 62 75 66 66 65 | it out?| " buffe|
|00001c60| 72 2d 6e 61 6d 65 20 73 | 61 76 65 2d 62 75 66 66 |r-name s|ave-buff|
|00001c70| 65 72 20 73 63 63 73 2d | 6c 6f 63 6b 65 64 2d 72 |er sccs-|locked-r|
|00001c80| 65 76 69 73 69 6f 6e 20 | 22 53 49 44 3a 20 25 73 |evision |"SID: %s|
|00001c90| 20 20 43 68 61 6e 67 65 | 20 72 65 76 69 73 69 6f |  Change| revisio|
|00001ca0| 6e 20 6c 65 76 65 6c 3f | 20 22 20 22 4e 65 77 20 |n level?| " "New |
|00001cb0| 72 65 76 69 73 69 6f 6e | 20 6c 65 76 65 6c 3a 20 |revision| level: |
|00001cc0| 22 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |" ((byte|-code ".|
|00001cd0| c1 c2 21 21 88 c3 20 88 | c4 c5 21 88 c6 20 88 c7 |..!!.. .|..!.. ..|
|00001ce0| c8 21 88 c5 c9 ca 8f 3f | ad 85 c5 cb cc 8f 3f c5 |.!.....?|......?.|
|00001cf0| 16 0d ce c2 21 88 87 22 | 20 5b 70 6f 70 2d 74 6f |....!.."| [pop-to|
|00001d00| 2d 62 75 66 66 65 72 20 | 67 65 74 2d 62 75 66 66 |-buffer |get-buff|
|00001d10| 65 72 2d 63 72 65 61 74 | 65 20 22 2a 53 43 43 53 |er-creat|e "*SCCS|
|00001d20| 2a 22 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |*" erase|-buffer |
|00001d30| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|00001d40| 69 65 64 2d 70 20 6e 69 | 6c 20 73 63 63 73 2d 6d |ied-p ni|l sccs-m|
|00001d50| 6f 64 65 20 6d 65 73 73 | 61 67 65 20 22 45 6e 74 |ode mess|age "Ent|
|00001d60| 65 72 20 6c 6f 67 20 6d | 65 73 73 61 67 65 2e 20 |er log m|essage. |
|00001d70| 54 79 70 65 20 43 2d 63 | 20 43 2d 63 20 77 68 65 |Type C-c| C-c whe|
|00001d80| 6e 20 64 6f 6e 65 2c 20 | 43 2d 63 20 3f 20 66 6f |n done, |C-c ? fo|
|00001d90| 72 20 68 65 6c 70 2e 22 | 20 28 62 79 74 65 2d 63 |r help."| (byte-c|
|00001da0| 6f 64 65 20 22 c0 20 88 | c1 87 22 20 5b 72 65 63 |ode ". .|.." [rec|
|00001db0| 75 72 73 69 76 65 2d 65 | 64 69 74 20 6e 69 6c 5d |ursive-e|dit nil]|
|00001dc0| 20 31 29 20 28 28 65 72 | 72 6f 72 20 74 29 29 20 | 1) ((er|ror t)) |
|00001dd0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 5c 6e |(byte-co|de "..\n|
|00001de0| 5c 22 88 c3 87 22 20 5b | 73 63 63 73 2d 64 65 6c |\"..." [|sccs-del|
|00001df0| 74 61 20 66 69 6c 65 20 | 72 65 76 69 73 69 6f 6e |ta file |revision|
|00001e00| 20 6e 69 6c 5d 20 33 29 | 20 28 28 65 72 72 6f 72 | nil] 3)| ((error|
|00001e10| 20 74 29 29 20 62 75 66 | 66 65 72 2d 66 69 6c 65 | t)) buf|fer-file|
|00001e20| 2d 6e 61 6d 65 20 62 75 | 72 79 2d 62 75 66 66 65 |-name bu|ry-buffe|
|00001e30| 72 5d 20 33 29 29 20 22 | 44 65 6c 74 61 2d 65 64 |r] 3)) "|Delta-ed|
|00001e40| 20 76 65 72 73 69 6f 6e | 20 6f 66 20 66 69 6c 65 | version| of file|
|00001e50| 20 64 6f 65 73 20 6e 6f | 74 20 6d 61 74 63 68 20 | does no|t match |
|00001e60| 62 75 66 66 65 72 21 22 | 20 72 75 6e 2d 68 6f 6f |buffer!"| run-hoo|
|00001e70| 6b 73 20 73 63 63 73 2d | 64 65 6c 74 61 2d 6f 6b |ks sccs-|delta-ok|
|00001e80| 20 22 54 68 65 72 65 20 | 69 73 20 6e 6f 20 66 69 | "There |is no fi|
|00001e90| 6c 65 20 61 73 73 6f 63 | 69 61 74 65 64 20 77 69 |le assoc|iated wi|
|00001ea0| 74 68 20 62 75 66 66 65 | 72 20 25 73 22 5d 20 37 |th buffe|r %s"] 7|
|00001eb0| 20 28 23 24 20 2e 20 2d | 35 38 32 36 29 20 22 50 | (#$ . -|5826) "P|
|00001ec0| 22 5d 29 0a 23 40 36 31 | 20 2a 49 6e 73 65 72 74 |"]).#@61| *Insert|
|00001ed0| 20 74 68 65 20 6c 6f 67 | 20 6d 65 73 73 61 67 65 | the log| message|
|00001ee0| 20 6f 66 20 74 68 65 20 | 6c 61 73 74 20 53 43 43 | of the |last SCC|
|00001ef0| 53 20 63 68 65 63 6b 20 | 69 6e 20 61 74 20 70 6f |S check |in at po|
|00001f00| 69 6e 74 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |int...(d|efalias |
|00001f10| 27 73 63 63 73 2d 69 6e | 73 65 72 74 2d 6c 61 73 |'sccs-in|sert-las|
|00001f20| 74 2d 6c 6f 67 20 23 5b | 6e 69 6c 20 22 c0 09 21 |t-log #[|nil "..!|
|00001f30| 87 22 20 5b 69 6e 73 65 | 72 74 2d 62 75 66 66 65 |." [inse|rt-buffe|
|00001f40| 72 20 73 63 63 73 2d 6c | 6f 67 2d 62 75 66 5d 20 |r sccs-l|og-buf] |
|00001f50| 32 20 28 23 24 20 2e 20 | 2d 37 38 38 31 29 20 6e |2 (#$ . |-7881) n|
|00001f60| 69 6c 5d 29 0a 23 40 35 | 36 20 52 65 74 72 69 65 |il]).#@5|6 Retrie|
|00001f70| 76 65 20 61 20 63 6f 70 | 79 20 6f 66 20 74 68 65 |ve a cop|y of the|
|00001f80| 20 6c 61 74 65 73 74 20 | 64 65 6c 74 61 20 6f 66 | latest |delta of|
|00001f90| 20 74 68 65 20 67 69 76 | 65 6e 20 66 69 6c 65 2e | the giv|en file.|
|00001fa0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 63 63 |..(defal|ias 'scc|
|00001fb0| 73 2d 67 65 74 20 23 5b | 28 66 69 6c 65 20 77 72 |s-get #[|(file wr|
|00001fc0| 69 74 65 61 62 6c 65 29 | 20 22 c0 c1 c2 0b 0c ad |iteable)| "......|
|00001fd0| 81 c5 24 87 22 20 5b 73 | 63 63 73 2d 64 6f 2d 63 |..$." [s|ccs-do-c|
|00001fe0| 6f 6d 6d 61 6e 64 20 22 | 2a 53 43 43 53 2a 22 20 |ommand "|*SCCS*" |
|00001ff0| 22 67 65 74 22 20 66 69 | 6c 65 20 77 72 69 74 65 |"get" fi|le write|
|00002000| 61 62 6c 65 20 22 2d 65 | 22 5d 20 35 20 28 23 24 |able "-e|"] 5 (#$|
|00002010| 20 2e 20 38 30 34 32 29 | 5d 29 0a 23 40 31 32 33 | . 8042)|]).#@123|
|00002020| 20 43 68 65 63 6b 73 20 | 61 20 66 69 6c 65 20 69 | Checks |a file i|
|00002030| 6e 74 6f 20 73 63 63 73 | 2e 0a 46 49 4c 45 20 69 |nto sccs|..FILE i|
|00002040| 73 20 74 68 65 20 75 6e | 6d 6f 64 69 66 69 65 64 |s the un|modified|
|00002050| 20 6e 61 6d 65 20 6f 66 | 20 74 68 65 20 66 69 6c | name of| the fil|
|00002060| 65 2e 20 20 53 49 44 20 | 73 68 6f 75 6c 64 20 62 |e.  SID |should b|
|00002070| 65 20 74 68 65 20 62 61 | 73 65 2d 6c 65 76 65 6c |e the ba|se-level|
|00002080| 20 73 69 64 20 74 6f 0a | 63 68 65 63 6b 20 69 74 | sid to.|check it|
|00002090| 20 69 6e 20 75 6e 64 65 | 72 2e 1f 0a 28 64 65 66 | in unde|r...(def|
|000020a0| 61 6c 69 61 73 20 27 73 | 63 63 73 2d 61 64 6d 69 |alias 's|ccs-admi|
|000020b0| 6e 20 23 5b 28 66 69 6c | 65 20 73 69 64 29 20 22 |n #[(fil|e sid) "|
|000020c0| c0 20 ab 8c c1 c2 c3 c4 | 20 5c 22 21 ab 83 c5 20 |. ......| \"!... |
|000020d0| 88 c6 c7 c8 0e 09 ca 0e | 09 50 cb 0e 0c 50 25 88 |........|.P...P%.|
|000020e0| cd ce cf 89 89 d0 0e 09 | 26 06 88 d1 20 ab 86 d2 |........|&... ...|
|000020f0| 0e 09 cf 5c 22 88 d3 cf | d4 5c 22 88 d5 0e 09 21 |...\"...|.\"....!|
|00002100| 87 22 20 5b 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |." [buff|er-modif|
|00002110| 69 65 64 2d 70 20 79 2d | 6f 72 2d 6e 2d 70 20 66 |ied-p y-|or-n-p f|
|00002120| 6f 72 6d 61 74 20 22 25 | 73 20 68 61 73 20 62 65 |ormat "%|s has be|
|00002130| 65 6e 20 6d 6f 64 69 66 | 69 65 64 2e 20 57 72 69 |en modif|ied. Wri|
|00002140| 74 65 20 69 74 20 6f 75 | 74 3f 20 22 20 62 75 66 |te it ou|t? " buf|
|00002150| 66 65 72 2d 6e 61 6d 65 | 20 73 61 76 65 2d 62 75 |fer-name| save-bu|
|00002160| 66 66 65 72 20 73 63 63 | 73 2d 64 6f 2d 63 6f 6d |ffer scc|s-do-com|
|00002170| 6d 61 6e 64 20 22 2a 53 | 43 43 53 2a 22 20 22 61 |mand "*S|CCS*" "a|
|00002180| 64 6d 69 6e 22 20 66 69 | 6c 65 20 22 2d 69 22 20 |dmin" fi|le "-i" |
|00002190| 22 2d 72 22 20 73 69 64 | 20 63 61 6c 6c 2d 70 72 |"-r" sid| call-pr|
|000021a0| 6f 63 65 73 73 20 22 63 | 68 6d 6f 64 22 20 6e 69 |ocess "c|hmod" ni|
|000021b0| 6c 20 22 2d 77 22 20 73 | 63 63 73 2d 63 68 65 63 |l "-w" s|ccs-chec|
|000021c0| 6b 2d 68 65 61 64 65 72 | 73 20 73 63 63 73 2d 67 |k-header|s sccs-g|
|000021d0| 65 74 20 72 65 76 65 72 | 74 2d 62 75 66 66 65 72 |et rever|t-buffer|
|000021e0| 20 74 20 73 63 63 73 2d | 6d 6f 64 65 2d 6c 69 6e | t sccs-|mode-lin|
|000021f0| 65 5d 20 37 20 28 23 24 | 20 2e 20 38 32 32 35 29 |e] 7 (#$| . 8225)|
|00002200| 5d 29 0a 23 40 33 32 35 | 20 44 65 6c 74 61 20 74 |]).#@325| Delta t|
|00002210| 68 65 20 66 69 6c 65 20 | 73 70 65 63 69 66 69 65 |he file |specifie|
|00002220| 64 20 62 79 20 46 49 4c | 45 2e 0a 54 68 65 20 6f |d by FIL|E..The o|
|00002230| 70 74 69 6f 6e 61 6c 20 | 61 72 67 75 6d 65 6e 74 |ptional |argument|
|00002240| 20 52 45 56 20 6d 61 79 | 20 62 65 20 61 20 73 74 | REV may| be a st|
|00002250| 72 69 6e 67 20 73 70 65 | 63 69 66 79 69 6e 67 20 |ring spe|cifying |
|00002260| 74 68 65 20 6e 65 77 20 | 72 65 76 69 73 69 6f 6e |the new |revision|
|00002270| 20 6c 65 76 65 6c 0a 28 | 69 66 20 6e 69 6c 20 69 | level.(|if nil i|
|00002280| 6e 63 72 65 6d 65 6e 74 | 20 74 68 65 20 63 75 72 |ncrement| the cur|
|00002290| 72 65 6e 74 20 6c 65 76 | 65 6c 29 2e 20 54 68 65 |rent lev|el). The|
|000022a0| 20 66 69 6c 65 20 69 73 | 20 72 65 74 61 69 6e 65 | file is| retaine|
|000022b0| 64 20 77 69 74 68 20 77 | 72 69 74 65 0a 70 65 72 |d with w|rite.per|
|000022c0| 6d 69 73 73 69 6f 6e 73 | 20 7a 65 72 6f 65 64 2e |missions| zeroed.|
|000022d0| 20 43 4f 4d 4d 45 4e 54 | 20 69 73 20 61 20 63 6f | COMMENT| is a co|
|000022e0| 6d 6d 65 6e 74 20 73 74 | 72 69 6e 67 3b 20 69 66 |mment st|ring; if|
|000022f0| 20 6f 6d 69 74 74 65 64 | 2c 20 74 68 65 20 63 6f | omitted|, the co|
|00002300| 6e 74 65 6e 74 73 20 6f | 66 0a 74 68 65 20 63 75 |ntents o|f.the cu|
|00002310| 72 72 65 6e 74 20 62 75 | 66 66 65 72 20 75 70 20 |rrent bu|ffer up |
|00002320| 74 6f 20 70 6f 69 6e 74 | 20 62 65 63 6f 6d 65 73 |to point| becomes|
|00002330| 20 74 68 65 20 63 6f 6d | 6d 65 6e 74 20 66 6f 72 | the com|ment for|
|00002340| 20 74 68 69 73 20 64 65 | 6c 74 61 2e 1f 0a 28 64 | this de|lta...(d|
|00002350| 65 66 61 6c 69 61 73 20 | 27 73 63 63 73 2d 64 65 |efalias |'sccs-de|
|00002360| 6c 74 61 20 23 5b 28 66 | 69 6c 65 20 26 6f 70 74 |lta #[(f|ile &opt|
|00002370| 69 6f 6e 61 6c 20 72 65 | 76 20 63 6f 6d 6d 65 6e |ional re|v commen|
|00002380| 74 29 20 22 08 ac 91 64 | 62 88 6e ac 83 c1 20 88 |t) "...d|b.n... .|
|00002390| c1 20 88 65 60 53 7b 10 | c2 c3 c4 0d c6 0e 07 ad |. .e`S{.|........|
|000023a0| 85 c8 c9 0e 07 5c 22 c8 | ca 08 5c 22 26 06 88 cb |.....\".|..\"&...|
|000023b0| cc cd 89 89 ce 0d 26 06 | 87 22 20 5b 63 6f 6d 6d |......&.|." [comm|
|000023c0| 65 6e 74 20 6e 65 77 6c | 69 6e 65 20 73 63 63 73 |ent newl|ine sccs|
|000023d0| 2d 64 6f 2d 63 6f 6d 6d | 61 6e 64 20 22 2a 53 43 |-do-comm|and "*SC|
|000023e0| 43 53 2a 22 20 22 64 65 | 6c 74 61 22 20 66 69 6c |CS*" "de|lta" fil|
|000023f0| 65 20 22 2d 6e 22 20 72 | 65 76 20 66 6f 72 6d 61 |e "-n" r|ev forma|
|00002400| 74 20 22 2d 72 25 73 22 | 20 22 2d 79 25 73 22 20 |t "-r%s"| "-y%s" |
|00002410| 63 61 6c 6c 2d 70 72 6f | 63 65 73 73 20 22 63 68 |call-pro|cess "ch|
|00002420| 6d 6f 64 22 20 6e 69 6c | 20 22 2d 77 22 5d 20 39 |mod" nil| "-w"] 9|
|00002430| 20 28 23 24 20 2e 20 38 | 37 31 33 29 5d 29 0a 23 | (#$ . 8|713)]).#|
|00002440| 40 33 30 20 41 62 6f 72 | 74 20 61 6e 20 53 43 43 |@30 Abor|t an SCC|
|00002450| 53 20 64 65 6c 74 61 20 | 63 6f 6d 6d 61 6e 64 2e |S delta |command.|
|00002460| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 63 63 |..(defal|ias 'scc|
|00002470| 73 2d 64 65 6c 74 61 2d | 61 62 6f 72 74 20 23 5b |s-delta-|abort #[|
|00002480| 6e 69 6c 20 22 08 ac 85 | c1 c2 21 ad 86 c3 20 88 |nil "...|..!... .|
|00002490| c4 c5 21 87 22 20 5b 73 | 63 63 73 2d 6d 6f 64 65 |..!." [s|ccs-mode|
|000024a0| 2d 65 78 70 65 72 74 20 | 79 2d 6f 72 2d 6e 2d 70 |-expert |y-or-n-p|
|000024b0| 20 22 41 62 6f 72 74 20 | 74 68 65 20 64 65 6c 74 | "Abort |the delt|
|000024c0| 61 3f 20 22 20 64 65 6c | 65 74 65 2d 77 69 6e 64 |a? " del|ete-wind|
|000024d0| 6f 77 20 65 72 72 6f 72 | 20 22 44 65 6c 74 61 20 |ow error| "Delta |
|000024e0| 61 62 6f 72 74 65 64 22 | 5d 20 32 20 28 23 24 20 |aborted"|] 2 (#$ |
|000024f0| 2e 20 39 32 38 34 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 9284) |nil]).#@|
|00002500| 35 30 20 4c 65 61 76 65 | 20 74 68 65 20 72 65 63 |50 Leave| the rec|
|00002510| 75 72 73 69 76 65 20 65 | 64 69 74 20 6f 66 20 61 |ursive e|dit of a|
|00002520| 6e 20 53 43 43 53 20 6c | 6f 67 20 6d 65 73 73 61 |n SCCS l|og messa|
|00002530| 67 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ge...(de|falias '|
|00002540| 73 63 63 73 2d 6c 6f 67 | 2d 65 78 69 74 20 23 5b |sccs-log|-exit #[|
|00002550| 6e 69 6c 20 22 c0 20 09 | 57 ab 8c c2 0b 65 64 23 |nil ". .|W....ed#|
|00002560| 88 c4 20 88 c5 20 87 09 | 62 88 c6 c7 09 89 23 87 |.. .. ..|b.....#.|
|00002570| 22 20 5b 62 75 66 66 65 | 72 2d 73 69 7a 65 20 73 |" [buffe|r-size s|
|00002580| 63 63 73 2d 6d 61 78 2d | 6c 6f 67 2d 73 69 7a 65 |ccs-max-|log-size|
|00002590| 20 63 6f 70 79 2d 74 6f | 2d 62 75 66 66 65 72 20 | copy-to|-buffer |
|000025a0| 73 63 63 73 2d 6c 6f 67 | 2d 62 75 66 20 65 78 69 |sccs-log|-buf exi|
|000025b0| 74 2d 72 65 63 75 72 73 | 69 76 65 2d 65 64 69 74 |t-recurs|ive-edit|
|000025c0| 20 64 65 6c 65 74 65 2d | 77 69 6e 64 6f 77 20 65 | delete-|window e|
|000025d0| 72 72 6f 72 20 22 4c 6f | 67 20 6d 75 73 74 20 62 |rror "Lo|g must b|
|000025e0| 65 20 6c 65 73 73 20 74 | 68 61 6e 20 25 64 20 63 |e less t|han %d c|
|000025f0| 68 61 72 61 63 74 65 72 | 73 2e 20 50 6f 69 6e 74 |haracter|s. Point|
|00002600| 20 69 73 20 6e 6f 77 20 | 61 74 20 63 68 61 72 20 | is now |at char |
|00002610| 25 64 2e 22 5d 20 34 20 | 28 23 24 20 2e 20 39 34 |%d."] 4 |(#$ . 94|
|00002620| 37 35 29 20 6e 69 6c 5d | 29 0a 23 40 31 33 35 20 |75) nil]|).#@135 |
|00002630| 2a 43 6f 6d 70 61 72 65 | 20 74 68 65 20 76 65 72 |*Compare| the ver|
|00002640| 73 69 6f 6e 20 62 65 69 | 6e 67 20 65 64 69 74 65 |sion bei|ng edite|
|00002650| 64 20 77 69 74 68 20 74 | 68 65 20 6c 61 73 74 20 |d with t|he last |
|00002660| 63 68 65 63 6b 65 64 2d | 69 6e 20 72 65 76 69 73 |checked-|in revis|
|00002670| 69 6f 6e 2e 0a 4f 72 2c | 20 69 66 20 67 69 76 65 |ion..Or,| if give|
|00002680| 6e 20 61 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |n a pref|ix argum|
|00002690| 65 6e 74 2c 20 77 69 74 | 68 20 61 6e 6f 74 68 65 |ent, wit|h anothe|
|000026a0| 72 20 73 70 65 63 69 66 | 69 65 64 20 72 65 76 69 |r specif|ied revi|
|000026b0| 73 69 6f 6e 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |sion...(|defalias|
|000026c0| 20 27 73 63 63 73 2d 72 | 65 76 65 72 74 2d 64 69 | 'sccs-r|evert-di|
|000026d0| 66 66 20 23 5b 28 26 72 | 65 73 74 20 66 6c 61 67 |ff #[(&r|est flag|
|000026e0| 73 29 20 22 c0 89 19 1a | c3 c4 20 0d ad 83 c6 c7 |s) "....|.. .....|
|000026f0| 21 5c 22 89 12 ad ce c8 | 20 ab 90 0e 09 ac 89 ca |!\".....| .......|
|00002700| cb cc cd 20 5c 22 21 ab | 83 ce 20 88 c4 20 11 cf |... \"!.|.. .. ..|
|00002710| d0 21 71 88 d1 20 88 d2 | d3 0e 14 40 c0 d5 c0 d6 |.!q.. ..|...@....|
|00002720| 0e 14 41 0e 17 5c 6e 43 | 09 43 24 26 06 88 d8 c0 |..A..\nC|.C$&....|
|00002730| 21 88 65 62 88 d9 5c 6e | 21 88 65 64 6b ab 86 da |!.eb..\n|!.edk...|
|00002740| db 09 5c 22 aa 83 dc d0 | 21 2a 87 22 20 5b 6e 69 |..\"....|!*." [ni|
|00002750| 6c 20 66 69 6c 65 20 6f | 6c 64 20 73 63 63 73 2d |l file o|ld sccs-|
|00002760| 67 65 74 2d 76 65 72 73 | 69 6f 6e 20 62 75 66 66 |get-vers|ion buff|
|00002770| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 63 75 72 |er-file-|name cur|
|00002780| 72 65 6e 74 2d 70 72 65 | 66 69 78 2d 61 72 67 20 |rent-pre|fix-arg |
|00002790| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 52 65 76 |read-str|ing "Rev|
|000027a0| 69 73 69 6f 6e 20 74 6f | 20 63 6f 6d 70 61 72 65 |ision to| compare|
|000027b0| 20 61 67 61 69 6e 73 74 | 3a 20 22 20 62 75 66 66 | against|: " buff|
|000027c0| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 73 63 |er-modif|ied-p sc|
|000027d0| 63 73 2d 6d 6f 64 65 2d | 65 78 70 65 72 74 20 79 |cs-mode-|expert y|
|000027e0| 2d 6f 72 2d 6e 2d 70 20 | 66 6f 72 6d 61 74 20 22 |-or-n-p |format "|
|000027f0| 25 73 20 68 61 73 20 62 | 65 65 6e 20 6d 6f 64 69 |%s has b|een modi|
|00002800| 66 69 65 64 2e 20 57 72 | 69 74 65 20 69 74 20 6f |fied. Wr|ite it o|
|00002810| 75 74 3f 20 22 20 62 75 | 66 66 65 72 2d 6e 61 6d |ut? " bu|ffer-nam|
|00002820| 65 20 73 61 76 65 2d 62 | 75 66 66 65 72 20 67 65 |e save-b|uffer ge|
|00002830| 74 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 20 |t-buffer|-create |
|00002840| 22 2a 53 43 43 53 2a 22 | 20 65 72 61 73 65 2d 62 |"*SCCS*"| erase-b|
|00002850| 75 66 66 65 72 20 61 70 | 70 6c 79 20 63 61 6c 6c |uffer ap|ply call|
|00002860| 2d 70 72 6f 63 65 73 73 | 20 73 63 63 73 2d 64 69 |-process| sccs-di|
|00002870| 66 66 2d 63 6f 6d 6d 61 | 6e 64 20 74 20 61 70 70 |ff-comma|nd t app|
|00002880| 65 6e 64 20 66 6c 61 67 | 73 20 73 65 74 2d 62 75 |end flag|s set-bu|
|00002890| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|000028a0| 64 65 6c 65 74 65 2d 66 | 69 6c 65 20 6d 65 73 73 |delete-f|ile mess|
|000028b0| 61 67 65 20 22 4e 6f 20 | 63 68 61 6e 67 65 73 20 |age "No |changes |
|000028c0| 74 6f 20 25 73 20 73 69 | 6e 63 65 20 6c 61 73 74 |to %s si|nce last|
|000028d0| 20 67 65 74 2e 22 20 70 | 6f 70 2d 74 6f 2d 62 75 | get." p|op-to-bu|
|000028e0| 66 66 65 72 5d 20 31 31 | 20 28 23 24 20 2e 20 2d |ffer] 11| (#$ . -|
|000028f0| 39 37 37 36 29 20 6e 69 | 6c 5d 29 0a 23 40 36 32 |9776) ni|l]).#@62|
|00002900| 20 2a 4c 69 73 74 20 74 | 68 65 20 53 43 43 53 20 | *List t|he SCCS |
|00002910| 6c 6f 67 20 6f 66 20 74 | 68 65 20 63 75 72 72 65 |log of t|he curre|
|00002920| 6e 74 20 62 75 66 66 65 | 72 20 69 6e 20 61 6e 20 |nt buffe|r in an |
|00002930| 65 6d 61 63 73 20 77 69 | 6e 64 6f 77 2e 1f 0a 28 |emacs wi|ndow...(|
|00002940| 64 65 66 61 6c 69 61 73 | 20 27 73 63 63 73 2d 70 |defalias| 'sccs-p|
|00002950| 72 73 20 23 5b 6e 69 6c | 20 22 08 ab 94 c1 c2 08 |rs #[nil| "......|
|00002960| c3 5c 22 21 ab 8c c4 c5 | c6 08 23 88 c7 c8 c5 21 |.\"!....|..#....!|
|00002970| 21 87 c9 ca 21 87 22 20 | 5b 62 75 66 66 65 72 2d |!...!." |[buffer-|
|00002980| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6c 65 2d 65 |file-nam|e file-e|
|00002990| 78 69 73 74 73 2d 70 20 | 73 63 63 73 2d 6e 61 6d |xists-p |sccs-nam|
|000029a0| 65 20 22 73 22 20 73 63 | 63 73 2d 64 6f 2d 63 6f |e "s" sc|cs-do-co|
|000029b0| 6d 6d 61 6e 64 20 22 2a | 53 43 43 53 2a 22 20 22 |mmand "*|SCCS*" "|
|000029c0| 70 72 73 22 20 70 6f 70 | 2d 74 6f 2d 62 75 66 66 |prs" pop|-to-buff|
|000029d0| 65 72 20 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |er get-b|uffer-cr|
|000029e0| 65 61 74 65 20 65 72 72 | 6f 72 20 22 54 68 65 72 |eate err|or "Ther|
|000029f0| 65 20 69 73 20 6e 6f 20 | 53 43 43 53 20 66 69 6c |e is no |SCCS fil|
|00002a00| 65 20 61 73 73 6f 63 69 | 61 74 65 64 20 77 69 74 |e associ|ated wit|
|00002a10| 68 20 74 68 69 73 20 62 | 75 66 66 65 72 22 5d 20 |h this b|uffer"] |
|00002a20| 34 20 28 23 24 20 2e 20 | 2d 31 30 34 39 37 29 20 |4 (#$ . |-10497) |
|00002a30| 6e 69 6c 5d 29 0a 23 40 | 37 32 20 2a 46 6f 72 20 |nil]).#@|72 *For |
|00002a40| 46 49 4c 45 2c 20 72 65 | 70 6f 72 74 20 64 69 66 |FILE, re|port dif|
|00002a50| 66 73 20 62 65 74 77 65 | 65 6e 20 74 77 6f 20 73 |fs betwe|en two s|
|00002a60| 74 6f 72 65 64 20 64 65 | 6c 74 61 73 20 52 45 4c |tored de|ltas REL|
|00002a70| 31 20 61 6e 64 20 52 45 | 4c 32 20 6f 66 20 69 74 |1 and RE|L2 of it|
|00002a80| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 63 |...(defa|lias 'sc|
|00002a90| 63 73 2d 76 65 72 73 69 | 6f 6e 2d 64 69 66 66 20 |cs-versi|on-diff |
|00002aa0| 23 5b 28 66 69 6c 65 20 | 72 65 6c 31 20 72 65 6c |#[(file |rel1 rel|
|00002ab0| 32 29 20 22 08 c1 98 ab | 82 c2 10 0b c1 98 ab 82 |2) "....|........|
|00002ac0| c2 13 c4 c5 21 71 88 c6 | 20 88 c7 0e 08 08 0b 23 |....!q..| ......#|
|00002ad0| 88 c9 c2 21 88 65 62 88 | 65 64 6b ab 88 ca cb 0e |...!.eb.|edk.....|
|00002ae0| 08 08 0b 24 87 cc c5 21 | 87 22 20 5b 72 65 6c 31 |...$...!|." [rel1|
|00002af0| 20 22 22 20 6e 69 6c 20 | 72 65 6c 32 20 67 65 74 | "" nil |rel2 get|
|00002b00| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 22 |-buffer-|create "|
|00002b10| 2a 53 43 43 53 2a 22 20 | 65 72 61 73 65 2d 62 75 |*SCCS*" |erase-bu|
|00002b20| 66 66 65 72 20 73 63 63 | 73 2d 76 64 69 66 66 20 |ffer scc|s-vdiff |
|00002b30| 66 69 6c 65 20 73 65 74 | 2d 62 75 66 66 65 72 2d |file set|-buffer-|
|00002b40| 6d 6f 64 69 66 69 65 64 | 2d 70 20 6d 65 73 73 61 |modified|-p messa|
|00002b50| 67 65 20 22 4e 6f 20 63 | 68 61 6e 67 65 73 20 74 |ge "No c|hanges t|
|00002b60| 6f 20 25 73 20 62 65 74 | 77 65 65 6e 20 25 73 20 |o %s bet|ween %s |
|00002b70| 61 6e 64 20 25 73 2e 22 | 20 70 6f 70 2d 74 6f 2d |and %s."| pop-to-|
|00002b80| 62 75 66 66 65 72 5d 20 | 35 20 28 23 24 20 2e 20 |buffer] |5 (#$ . |
|00002b90| 2d 31 30 38 31 31 29 20 | 22 66 46 69 6c 65 3a 20 |-10811) |"fFile: |
|00002ba0| 5c 6e 73 4f 6c 64 65 72 | 20 76 65 72 73 69 6f 6e |\nsOlder| version|
|00002bb0| 3a 20 5c 6e 73 4e 65 77 | 65 72 20 76 65 72 73 69 |: \nsNew|er versi|
|00002bc0| 6f 6e 3a 20 22 5d 29 0a | 23 40 34 35 20 43 6f 6d |on: "]).|#@45 Com|
|00002bd0| 70 61 72 65 20 74 77 6f | 20 64 65 6c 74 61 73 20 |pare two| deltas |
|00002be0| 69 6e 74 6f 20 74 68 65 | 20 63 75 72 72 65 6e 74 |into the| current|
|00002bf0| 20 62 75 66 66 65 72 2e | 1f 0a 28 64 65 66 61 6c | buffer.|..(defal|
|00002c00| 69 61 73 20 27 73 63 63 | 73 2d 76 64 69 66 66 20 |ias 'scc|s-vdiff |
|00002c10| 23 5b 28 66 69 6c 65 20 | 72 65 6c 31 20 72 65 6c |#[(file |rel1 rel|
|00002c20| 32 20 26 6f 70 74 69 6f | 6e 61 6c 20 66 6c 61 67 |2 &optio|nal flag|
|00002c30| 73 29 20 22 c0 89 19 1a | c3 0c 0d 5c 22 89 12 ad |s) "....|...\"...|
|00002c40| a8 0e 06 ab 87 c3 0c 0e | 06 5c 22 aa 81 0c 89 11 |........|.\".....|
|00002c50| ad 98 c7 8e c8 c9 0e 5c | 6e 40 c0 cb 89 cc 0e 5c |.......\|n@.....\|
|00002c60| 6e 41 0e 0d 5c 6e 43 09 | 43 24 26 06 29 2a 87 22 |nA..\nC.|C$&.)*."|
|00002c70| 20 5b 6e 69 6c 20 76 65 | 72 73 32 20 76 65 72 73 | [nil ve|rs2 vers|
|00002c80| 31 20 73 63 63 73 2d 67 | 65 74 2d 76 65 72 73 69 |1 sccs-g|et-versi|
|00002c90| 6f 6e 20 66 69 6c 65 20 | 72 65 6c 31 20 72 65 6c |on file |rel1 rel|
|00002ca0| 32 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |2 ((byte|-code ".|
|00002cb0| c1 c2 8f 88 0b ab 85 c0 | c4 c5 8f 88 c0 87 22 20 |........|......" |
|00002cc0| 5b 6e 69 6c 20 28 64 65 | 6c 65 74 65 2d 66 69 6c |[nil (de|lete-fil|
|00002cd0| 65 20 76 65 72 73 31 29 | 20 28 28 65 72 72 6f 72 |e vers1)| ((error|
|00002ce0| 29 29 20 72 65 6c 32 20 | 28 64 65 6c 65 74 65 2d |)) rel2 |(delete-|
|00002cf0| 66 69 6c 65 20 76 65 72 | 73 32 29 20 28 28 65 72 |file ver|s2) ((er|
|00002d00| 72 6f 72 29 29 5d 20 33 | 29 29 20 61 70 70 6c 79 |ror))] 3|)) apply|
|00002d10| 20 63 61 6c 6c 2d 70 72 | 6f 63 65 73 73 20 73 63 | call-pr|ocess sc|
|00002d20| 63 73 2d 64 69 66 66 2d | 63 6f 6d 6d 61 6e 64 20 |cs-diff-|command |
|00002d30| 74 20 61 70 70 65 6e 64 | 20 66 6c 61 67 73 5d 20 |t append| flags] |
|00002d40| 31 31 20 28 23 24 20 2e | 20 31 31 32 31 33 29 5d |11 (#$ .| 11213)]|
|00002d50| 29 0a 23 40 31 37 33 20 | 2a 49 6e 73 65 72 74 20 |).#@173 |*Insert |
|00002d60| 68 65 61 64 65 72 73 20 | 66 6f 72 20 75 73 65 20 |headers |for use |
|00002d70| 77 69 74 68 20 74 68 65 | 20 53 6f 75 72 63 65 20 |with the| Source |
|00002d80| 43 6f 64 65 20 43 6f 6e | 74 72 6f 6c 20 53 79 73 |Code Con|trol Sys|
|00002d90| 74 65 6d 2e 0a 48 65 61 | 64 65 72 73 20 64 65 73 |tem..Hea|ders des|
|00002da0| 69 72 65 64 20 61 72 65 | 20 69 6e 73 65 72 74 65 |ired are| inserte|
|00002db0| 64 20 61 74 20 74 68 65 | 20 73 74 61 72 74 20 6f |d at the| start o|
|00002dc0| 66 20 74 68 65 20 62 75 | 66 66 65 72 2c 20 61 6e |f the bu|ffer, an|
|00002dd0| 64 20 61 72 65 20 70 75 | 6c 6c 65 64 20 66 72 6f |d are pu|lled fro|
|00002de0| 6d 20 0a 74 68 65 20 76 | 61 72 69 61 62 6c 65 20 |m .the v|ariable |
|00002df0| 73 63 63 73 2d 68 65 61 | 64 65 72 73 2d 77 61 6e |sccs-hea|ders-wan|
|00002e00| 74 65 64 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ted..(de|falias '|
|00002e10| 73 63 63 73 2d 69 6e 73 | 65 72 74 2d 68 65 61 64 |sccs-ins|ert-head|
|00002e20| 65 72 73 20 23 5b 6e 69 | 6c 20 22 8a 8c 7e 88 c0 |ers #[ni|l "..~..|
|00002e30| 20 ab 85 c1 c2 21 ad c8 | 65 62 88 c3 c4 21 88 0d | ....!..|eb...!..|
|00002e40| c6 61 ab 84 c7 20 aa b8 | 0d c8 61 ab 84 c9 20 aa |.a... ..|..a... .|
|00002e50| af 0d ca 61 ab 84 c9 20 | aa a6 0d cb 61 ab 84 c9 |...a... |....a...|
|00002e60| 20 aa 9d 0d cc 61 ab 84 | cd 20 aa 94 0d ce 61 ab | ....a..|. ....a.|
|00002e70| 84 cf 20 aa 8b 0d d0 61 | ab 84 d1 20 aa 82 d2 20 |.. ....a|... ... |
|00002e80| 2a 87 22 20 5b 73 63 63 | 73 2d 63 68 65 63 6b 2d |*." [scc|s-check-|
|00002e90| 68 65 61 64 65 72 73 20 | 79 2d 6f 72 2d 6e 2d 70 |headers |y-or-n-p|
|00002ea0| 20 22 53 43 43 53 20 68 | 65 61 64 65 72 73 20 61 | "SCCS h|eaders a|
|00002eb0| 6c 72 65 61 64 79 20 65 | 78 69 73 74 2e 20 20 49 |lready e|xist.  I|
|00002ec0| 6e 73 65 72 74 20 61 6e | 6f 74 68 65 72 20 73 65 |nsert an|other se|
|00002ed0| 74 3f 22 20 72 75 6e 2d | 68 6f 6f 6b 73 20 73 63 |t?" run-|hooks sc|
|00002ee0| 63 73 2d 69 6e 73 65 72 | 74 2d 68 65 61 64 65 72 |cs-inser|t-header|
|00002ef0| 73 2d 68 6f 6f 6b 20 6d | 61 6a 6f 72 2d 6d 6f 64 |s-hook m|ajor-mod|
|00002f00| 65 20 63 2d 6d 6f 64 65 | 20 73 63 63 73 2d 69 6e |e c-mode| sccs-in|
|00002f10| 73 65 72 74 2d 63 2d 68 | 65 61 64 65 72 20 6c 69 |sert-c-h|eader li|
|00002f20| 73 70 2d 6d 6f 64 65 20 | 73 63 63 73 2d 69 6e 73 |sp-mode |sccs-ins|
|00002f30| 65 72 74 2d 6c 69 73 70 | 2d 68 65 61 64 65 72 20 |ert-lisp|-header |
|00002f40| 65 6d 61 63 73 2d 6c 69 | 73 70 2d 6d 6f 64 65 20 |emacs-li|sp-mode |
|00002f50| 73 63 68 65 6d 65 2d 6d | 6f 64 65 20 6e 72 6f 66 |scheme-m|ode nrof|
|00002f60| 66 2d 6d 6f 64 65 20 73 | 63 63 73 2d 69 6e 73 65 |f-mode s|ccs-inse|
|00002f70| 72 74 2d 6e 72 6f 66 66 | 2d 68 65 61 64 65 72 20 |rt-nroff|-header |
|00002f80| 70 6c 61 69 6e 2d 74 65 | 78 2d 6d 6f 64 65 20 73 |plain-te|x-mode s|
|00002f90| 63 63 73 2d 69 6e 73 65 | 72 74 2d 74 65 78 2d 68 |ccs-inse|rt-tex-h|
|00002fa0| 65 61 64 65 72 20 74 65 | 78 69 6e 66 6f 2d 6d 6f |eader te|xinfo-mo|
|00002fb0| 64 65 20 73 63 63 73 2d | 69 6e 73 65 72 74 2d 74 |de sccs-|insert-t|
|00002fc0| 65 78 69 6e 66 6f 2d 68 | 65 61 64 65 72 20 73 63 |exinfo-h|eader sc|
|00002fd0| 63 73 2d 69 6e 73 65 72 | 74 2d 67 65 6e 65 72 69 |cs-inser|t-generi|
|00002fe0| 63 2d 68 65 61 64 65 72 | 5d 20 32 20 28 23 24 20 |c-header|] 2 (#$ |
|00002ff0| 2e 20 2d 31 31 36 30 38 | 29 20 6e 69 6c 5d 29 0a |. -11608|) nil]).|
|00003000| 28 64 65 66 61 6c 69 61 | 73 20 27 73 63 63 73 2d |(defalia|s 'sccs-|
|00003010| 69 6e 73 65 72 74 2d 63 | 2d 68 65 61 64 65 72 20 |insert-c|-header |
|00003020| 23 5b 6e 69 6c 20 22 c0 | 89 19 1a c3 63 88 c4 c5 |#[nil ".|....c...|
|00003030| 0e 06 5c 22 88 c7 63 88 | 0e 08 ab 91 c9 ca cb 20 |..\"..c.|....... |
|00003040| 5c 22 ac 8a cc cd b1 02 | 88 ce cf b1 02 88 d0 d1 |\"......|........|
|00003050| 21 2a 87 22 20 5b 6e 69 | 6c 20 65 6e 20 73 74 20 |!*." [ni|l en st |
|00003060| 22 2f 2a 5c 6e 22 20 6d | 61 70 63 61 72 20 23 5b |"/*\n" m|apcar #[|
|00003070| 28 73 29 20 22 c0 09 c2 | b1 03 87 22 20 5b 22 20 |(s) "...|..." [" |
|00003080| 2a 09 22 20 73 20 22 5c | 6e 22 5d 20 33 5d 20 73 |*." s "\|n"] 3] s|
|00003090| 63 63 73 2d 68 65 61 64 | 65 72 73 2d 77 61 6e 74 |ccs-head|ers-want|
|000030a0| 65 64 20 22 20 2a 2f 5c | 6e 5c 6e 22 20 73 63 63 |ed " */\|n\n" scc|
|000030b0| 73 2d 69 6e 73 65 72 74 | 2d 73 74 61 74 69 63 20 |s-insert|-static |
|000030c0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 5c |string-m|atch "\\|
|000030d0| 2e 68 24 22 20 62 75 66 | 66 65 72 2d 66 69 6c 65 |.h$" buf|fer-file|
|000030e0| 2d 6e 61 6d 65 20 22 23 | 69 66 6e 64 65 66 20 6c |-name "#|ifndef l|
|000030f0| 69 6e 74 5c 6e 22 20 22 | 73 74 61 74 69 63 20 63 |int\n" "|static c|
|00003100| 68 61 72 20 2a 73 63 63 | 73 69 64 22 20 22 20 3d |har *scc|sid" " =|
|00003110| 20 5c 22 25 57 25 5c 22 | 3b 5c 6e 22 20 22 23 65 | \"%W%\"|;\n" "#e|
|00003120| 6e 64 69 66 20 2f 2a 20 | 6c 69 6e 74 20 2a 2f 5c |ndif /* |lint */\|
|00003130| 6e 5c 6e 22 20 72 75 6e | 2d 68 6f 6f 6b 73 20 73 |n\n" run|-hooks s|
|00003140| 63 63 73 2d 69 6e 73 65 | 72 74 2d 63 2d 68 65 61 |ccs-inse|rt-c-hea|
|00003150| 64 65 72 2d 68 6f 6f 6b | 5d 20 33 5d 29 0a 28 64 |der-hook|] 3]).(d|
|00003160| 65 66 61 6c 69 61 73 20 | 27 73 63 63 73 2d 69 6e |efalias |'sccs-in|
|00003170| 73 65 72 74 2d 6c 69 73 | 70 2d 68 65 61 64 65 72 |sert-lis|p-header|
|00003180| 20 23 5b 6e 69 6c 20 22 | c0 c1 5c 6e 5c 22 88 c3 | #[nil "|..\n\"..|
|00003190| 63 88 c4 c5 21 87 22 20 | 5b 6d 61 70 63 61 72 20 |c...!." |[mapcar |
|000031a0| 23 5b 28 73 29 20 22 c0 | 09 c2 b1 03 87 22 20 5b |#[(s) ".|....." [|
|000031b0| 22 3b 3b 3b 09 22 20 73 | 20 22 5c 6e 22 5d 20 33 |";;;." s| "\n"] 3|
|000031c0| 5d 20 73 63 63 73 2d 68 | 65 61 64 65 72 73 2d 77 |] sccs-h|eaders-w|
|000031d0| 61 6e 74 65 64 20 22 5c | 6e 22 20 72 75 6e 2d 68 |anted "\|n" run-h|
|000031e0| 6f 6f 6b 73 20 73 63 63 | 73 2d 69 6e 73 65 72 74 |ooks scc|s-insert|
|000031f0| 2d 6c 69 73 70 2d 68 65 | 61 64 65 72 2d 68 6f 6f |-lisp-he|ader-hoo|
|00003200| 6b 5d 20 33 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |k] 3]).(|defalias|
|00003210| 20 27 73 63 63 73 2d 69 | 6e 73 65 72 74 2d 6e 72 | 'sccs-i|nsert-nr|
|00003220| 6f 66 66 2d 68 65 61 64 | 65 72 20 23 5b 6e 69 6c |off-head|er #[nil|
|00003230| 20 22 c0 c1 5c 6e 5c 22 | 88 c3 63 88 c4 c5 21 87 | "..\n\"|..c...!.|
|00003240| 22 20 5b 6d 61 70 63 61 | 72 20 23 5b 28 73 29 20 |" [mapca|r #[(s) |
|00003250| 22 c0 09 c2 b1 03 87 22 | 20 5b 22 2e 5c 5c 5c 22 |"......"| [".\\\"|
|00003260| 09 22 20 73 20 22 5c 6e | 22 5d 20 33 5d 20 73 63 |." s "\n|"] 3] sc|
|00003270| 63 73 2d 68 65 61 64 65 | 72 73 2d 77 61 6e 74 65 |cs-heade|rs-wante|
|00003280| 64 20 22 5c 6e 22 20 72 | 75 6e 2d 68 6f 6f 6b 73 |d "\n" r|un-hooks|
|00003290| 20 73 63 63 73 2d 69 6e | 73 65 72 74 2d 6e 72 6f | sccs-in|sert-nro|
|000032a0| 66 66 2d 68 65 61 64 65 | 72 2d 68 6f 6f 6b 5d 20 |ff-heade|r-hook] |
|000032b0| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |3]).(def|alias 's|
|000032c0| 63 63 73 2d 69 6e 73 65 | 72 74 2d 74 65 78 2d 68 |ccs-inse|rt-tex-h|
|000032d0| 65 61 64 65 72 20 23 5b | 6e 69 6c 20 22 c0 c1 5c |eader #[|nil "..\|
|000032e0| 6e 5c 22 88 c3 63 88 c4 | c5 21 87 22 20 5b 6d 61 |n\"..c..|.!." [ma|
|000032f0| 70 63 61 72 20 23 5b 28 | 73 29 20 22 c0 09 c2 b1 |pcar #[(|s) "....|
|00003300| 03 87 22 20 5b 22 25 25 | 09 22 20 73 20 22 5c 6e |.." ["%%|." s "\n|
|00003310| 22 5d 20 33 5d 20 73 63 | 63 73 2d 68 65 61 64 65 |"] 3] sc|cs-heade|
|00003320| 72 73 2d 77 61 6e 74 65 | 64 20 22 5c 6e 22 20 72 |rs-wante|d "\n" r|
|00003330| 75 6e 2d 68 6f 6f 6b 73 | 20 73 63 63 73 2d 69 6e |un-hooks| sccs-in|
|00003340| 73 65 72 74 2d 74 65 78 | 2d 68 65 61 64 65 72 2d |sert-tex|-header-|
|00003350| 68 6f 6f 6b 5d 20 33 5d | 29 0a 28 64 65 66 61 6c |hook] 3]|).(defal|
|00003360| 69 61 73 20 27 73 63 63 | 73 2d 69 6e 73 65 72 74 |ias 'scc|s-insert|
|00003370| 2d 74 65 78 69 6e 66 6f | 2d 68 65 61 64 65 72 20 |-texinfo|-header |
|00003380| 23 5b 6e 69 6c 20 22 c0 | c1 5c 6e 5c 22 88 c3 63 |#[nil ".|.\n\"..c|
|00003390| 88 c4 c5 21 87 22 20 5b | 6d 61 70 63 61 72 20 23 |...!." [|mapcar #|
|000033a0| 5b 28 73 29 20 22 c0 09 | c2 b1 03 87 22 20 5b 22 |[(s) "..|...." ["|
|000033b0| 40 63 6f 6d 6d 65 6e 74 | 09 22 20 73 20 22 5c 6e |@comment|." s "\n|
|000033c0| 22 5d 20 33 5d 20 73 63 | 63 73 2d 68 65 61 64 65 |"] 3] sc|cs-heade|
|000033d0| 72 73 2d 77 61 6e 74 65 | 64 20 22 5c 6e 22 20 72 |rs-wante|d "\n" r|
|000033e0| 75 6e 2d 68 6f 6f 6b 73 | 20 73 63 63 73 2d 69 6e |un-hooks| sccs-in|
|000033f0| 73 65 72 74 2d 74 65 78 | 69 6e 66 6f 2d 68 65 61 |sert-tex|info-hea|
|00003400| 64 65 72 2d 68 6f 6f 6b | 5d 20 33 5d 29 0a 28 64 |der-hook|] 3]).(d|
|00003410| 65 66 61 6c 69 61 73 20 | 27 73 63 63 73 2d 69 6e |efalias |'sccs-in|
|00003420| 73 65 72 74 2d 67 65 6e | 65 72 69 63 2d 68 65 61 |sert-gen|eric-hea|
|00003430| 64 65 72 20 23 5b 6e 69 | 6c 20 22 08 ae 81 c1 1a |der #[ni|l ".....|
|00003440| 0b ae 81 c4 1d c6 c7 0d | 5c 22 1e 08 c9 ca 0e 0b |........|\"......|
|00003450| 5c 22 88 5c 6e 0d 0e 08 | ab 83 c4 aa 81 c7 b1 03 |\".\n...|........|
|00003460| 2b 87 22 20 5b 63 6f 6d | 6d 65 6e 74 2d 73 74 61 |+." [com|ment-sta|
|00003470| 72 74 20 22 23 22 20 63 | 6f 6d 6d 65 6e 74 2d 73 |rt "#" c|omment-s|
|00003480| 74 61 72 74 2d 73 63 63 | 73 20 63 6f 6d 6d 65 6e |tart-scc|s commen|
|00003490| 74 2d 65 6e 64 20 22 22 | 20 63 6f 6d 6d 65 6e 74 |t-end ""| comment|
|000034a0| 2d 65 6e 64 2d 73 63 63 | 73 20 73 74 72 69 6e 67 |-end-scc|s string|
|000034b0| 2d 6d 61 74 63 68 20 22 | 5c 6e 22 20 64 6f 6e 74 |-match "|\n" dont|
|000034c0| 2d 69 6e 73 65 72 74 2d | 6e 6c 2d 70 20 6d 61 70 |-insert-|nl-p map|
|000034d0| 63 61 72 20 23 5b 28 73 | 29 20 22 08 c1 5c 6e c3 |car #[(s|) "..\n.|
|000034e0| 0c 0d ab 83 c3 aa 81 c6 | b1 06 87 22 20 5b 63 6f |........|..." [co|
|000034f0| 6d 6d 65 6e 74 2d 73 74 | 61 72 74 2d 73 63 63 73 |mment-st|art-sccs|
|00003500| 20 22 09 22 20 73 20 22 | 22 20 63 6f 6d 6d 65 6e | "." s "|" commen|
|00003510| 74 2d 65 6e 64 2d 73 63 | 63 73 20 64 6f 6e 74 2d |t-end-sc|cs dont-|
|00003520| 69 6e 73 65 72 74 2d 6e | 6c 2d 70 20 22 5c 6e 22 |insert-n|l-p "\n"|
|00003530| 5d 20 36 5d 20 73 63 63 | 73 2d 68 65 61 64 65 72 |] 6] scc|s-header|
|00003540| 73 2d 77 61 6e 74 65 64 | 5d 20 33 5d 29 0a 23 40 |s-wanted|] 3]).#@|
|00003550| 35 35 20 43 68 65 63 6b | 20 69 66 20 74 68 65 20 |55 Check| if the |
|00003560| 63 75 72 72 65 6e 74 20 | 66 69 6c 65 20 68 61 73 |current |file has|
|00003570| 20 61 6e 79 20 53 43 43 | 53 20 68 65 61 64 65 72 | any SCC|S header|
|00003580| 73 20 69 6e 20 69 74 2e | 1f 0a 28 64 65 66 61 6c |s in it.|..(defal|
|00003590| 69 61 73 20 27 73 63 63 | 73 2d 63 68 65 63 6b 2d |ias 'scc|s-check-|
|000035a0| 68 65 61 64 65 72 73 20 | 23 5b 6e 69 6c 20 22 8a |headers |#[nil ".|
|000035b0| 65 62 88 c0 c1 64 c2 23 | 29 87 22 20 5b 72 65 2d |eb...d.#|)." [re-|
|000035c0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|000035d0| 25 5b 4d 49 52 4c 42 53 | 44 48 54 45 47 55 59 46 |%[MIRLBS|DHTEGUYF|
|000035e0| 50 51 43 5a 57 41 5d 25 | 22 20 74 5d 20 34 20 28 |PQCZWA]%|" t] 4 (|
|000035f0| 23 24 20 2e 20 31 33 36 | 35 31 29 20 6e 69 6c 5d |#$ . 136|51) nil]|
|00003600| 29 0a 23 40 37 33 20 4c | 69 73 74 20 61 6c 6c 20 |).#@73 L|ist all |
|00003610| 66 69 6c 65 73 20 75 6e | 64 65 72 6e 65 61 74 68 |files un|derneath|
|00003620| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 64 69 72 | the cur|rent dir|
|00003630| 65 63 74 6f 72 79 20 6d | 61 74 63 68 69 6e 67 20 |ectory m|atching |
|00003640| 61 20 70 72 65 66 69 78 | 20 74 79 70 65 2e 1f 0a |a prefix| type...|
|00003650| 28 64 65 66 61 6c 69 61 | 73 20 27 73 63 63 73 2d |(defalia|s 'sccs-|
|00003660| 73 74 61 74 75 73 20 23 | 5b 28 70 72 65 66 69 78 |status #|[(prefix|
|00003670| 20 6c 65 67 65 6e 64 29 | 20 22 c0 c1 5c 6e c3 51 | legend)| "..\n.Q|
|00003680| 21 88 8a c4 71 88 64 65 | 55 ab 8a c5 c6 0e 07 0e |!...q.de|U.......|
|00003690| 08 23 3f aa 94 65 62 88 | c9 0e 07 ca 0e 08 cb b1 |.#?..eb.|........|
|000036a0| 05 88 cc cd ce 5c 6e 5c | 22 cf 5c 22 29 ad 83 d0 |.....\n\|".\")...|
|000036b0| c4 21 87 22 20 5b 73 63 | 63 73 2d 73 68 65 6c 6c |.!." [sc|cs-shell|
|000036c0| 2d 63 6f 6d 6d 61 6e 64 | 20 22 2f 62 69 6e 2f 6c |-command| "/bin/l|
|000036d0| 73 20 2d 31 20 53 43 43 | 53 2f 22 20 70 72 65 66 |s -1 SCC|S/" pref|
|000036e0| 69 78 20 22 2e 2a 22 20 | 22 2a 53 68 65 6c 6c 20 |ix ".*" |"*Shell |
|000036f0| 43 6f 6d 6d 61 6e 64 20 | 4f 75 74 70 75 74 2a 22 |Command |Output*"|
|00003700| 20 6d 65 73 73 61 67 65 | 20 22 4e 6f 20 66 69 6c | message| "No fil|
|00003710| 65 73 20 61 72 65 20 63 | 75 72 72 65 6e 74 6c 79 |es are c|urrently|
|00003720| 20 25 73 20 75 6e 64 65 | 72 20 25 73 22 20 6c 65 | %s unde|r %s" le|
|00003730| 67 65 6e 64 20 64 65 66 | 61 75 6c 74 2d 64 69 72 |gend def|ault-dir|
|00003740| 65 63 74 6f 72 79 20 22 | 54 68 65 20 66 6f 6c 6c |ectory "|The foll|
|00003750| 6f 77 69 6e 67 20 66 69 | 6c 65 73 20 61 72 65 20 |owing fi|les are |
|00003760| 63 75 72 72 65 6e 74 6c | 79 20 22 20 22 20 75 6e |currentl|y " " un|
|00003770| 64 65 72 20 22 20 22 3a | 5c 6e 22 20 72 65 70 6c |der " ":|\n" repl|
|00003780| 61 63 65 2d 73 74 72 69 | 6e 67 20 66 6f 72 6d 61 |ace-stri|ng forma|
|00003790| 74 20 22 53 43 43 53 2f | 25 73 2e 22 20 22 22 20 |t "SCCS/|%s." "" |
|000037a0| 70 6f 70 2d 74 6f 2d 62 | 75 66 66 65 72 5d 20 35 |pop-to-b|uffer] 5|
|000037b0| 20 28 23 24 20 2e 20 31 | 33 38 33 31 29 5d 29 0a | (#$ . 1|3831)]).|
|000037c0| 23 40 34 30 20 2a 4c 69 | 73 74 20 61 6c 6c 20 66 |#@40 *Li|st all f|
|000037d0| 69 6c 65 73 20 63 75 72 | 72 65 6e 74 6c 79 20 53 |iles cur|rently S|
|000037e0| 43 43 53 20 6c 6f 63 6b | 65 64 2e 1f 0a 28 64 65 |CCS lock|ed...(de|
|000037f0| 66 61 6c 69 61 73 20 27 | 73 63 63 73 2d 70 65 6e |falias '|sccs-pen|
|00003800| 64 69 6e 67 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 5c |ding #[n|il "...\|
|00003810| 22 87 22 20 5b 73 63 63 | 73 2d 73 74 61 74 75 73 |"." [scc|s-status|
|00003820| 20 22 70 22 20 22 6c 6f | 63 6b 65 64 22 5d 20 33 | "p" "lo|cked"] 3|
|00003830| 20 28 23 24 20 2e 20 2d | 31 34 32 37 37 29 20 6e | (#$ . -|14277) n|
|00003840| 69 6c 5d 29 0a 23 40 34 | 34 20 2a 4c 69 73 74 20 |il]).#@4|4 *List |
|00003850| 61 6c 6c 20 66 69 6c 65 | 73 20 63 75 72 72 65 6e |all file|s curren|
|00003860| 74 6c 79 20 53 43 43 53 | 20 72 65 67 69 73 74 65 |tly SCCS| registe|
|00003870| 72 65 64 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |red...(d|efalias |
|00003880| 27 73 63 63 73 2d 72 65 | 67 69 73 74 65 72 65 64 |'sccs-re|gistered|
|00003890| 20 23 5b 6e 69 6c 20 22 | c0 c1 c2 5c 22 87 22 20 | #[nil "|...\"." |
|000038a0| 5b 73 63 63 73 2d 73 74 | 61 74 75 73 20 22 73 22 |[sccs-st|atus "s"|
|000038b0| 20 22 72 65 67 69 73 74 | 65 72 65 64 22 5d 20 33 | "regist|ered"] 3|
|000038c0| 20 28 23 24 20 2e 20 2d | 31 34 34 31 30 29 20 6e | (#$ . -|14410) n|
|000038d0| 69 6c 5d 29 0a 23 40 36 | 31 20 2a 52 65 67 69 73 |il]).#@6|1 *Regis|
|000038e0| 74 65 72 20 74 68 65 20 | 66 69 6c 65 20 76 69 73 |ter the |file vis|
|000038f0| 69 74 65 64 20 62 79 20 | 74 68 65 20 63 75 72 72 |ited by |the curr|
|00003900| 65 6e 74 20 62 75 66 66 | 65 72 20 69 6e 74 6f 20 |ent buff|er into |
|00003910| 53 43 43 53 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |SCCS...(|defalias|
|00003920| 20 27 73 63 63 73 2d 72 | 65 67 69 73 74 65 72 2d | 'sccs-r|egister-|
|00003930| 66 69 6c 65 20 23 5b 28 | 6f 76 65 72 72 69 64 65 |file #[(|override|
|00003940| 29 20 22 c0 c1 c2 20 21 | 21 ab 84 c3 c4 21 87 c5 |) "... !|!....!..|
|00003950| 20 ab 90 0e 06 ac 89 c7 | c8 c9 ca 20 5c 22 21 ab | .......|... \"!.|
|00003960| 83 cb 20 88 cc 20 88 cd | c2 20 0e 0e ab 85 cf d0 |.. .. ..|. ......|
|00003970| 21 aa 8b d1 d2 d3 8f ab | 83 d4 aa 82 0e 15 5c 22 |!.......|......\"|
|00003980| 87 22 20 5b 66 69 6c 65 | 2d 65 78 69 73 74 73 2d |." [file|-exists-|
|00003990| 70 20 73 63 63 73 2d 6e | 61 6d 65 20 62 75 66 66 |p sccs-n|ame buff|
|000039a0| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 65 72 72 |er-file-|name err|
|000039b0| 6f 72 20 22 54 68 69 73 | 20 66 69 6c 65 20 69 73 |or "This| file is|
|000039c0| 20 61 6c 72 65 61 64 79 | 20 72 65 67 69 73 74 65 | already| registe|
|000039d0| 72 65 64 20 69 6e 74 6f | 20 53 43 43 53 2e 22 20 |red into| SCCS." |
|000039e0| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|000039f0| 70 20 73 63 63 73 2d 6d | 6f 64 65 2d 65 78 70 65 |p sccs-m|ode-expe|
|00003a00| 72 74 20 79 2d 6f 72 2d | 6e 2d 70 20 66 6f 72 6d |rt y-or-|n-p form|
|00003a10| 61 74 20 22 25 73 20 68 | 61 73 20 62 65 65 6e 20 |at "%s h|as been |
|00003a20| 6d 6f 64 69 66 69 65 64 | 2e 20 57 72 69 74 65 20 |modified|. Write |
|00003a30| 69 74 20 6f 75 74 3f 20 | 22 20 62 75 66 66 65 72 |it out? |" buffer|
|00003a40| 2d 6e 61 6d 65 20 73 61 | 76 65 2d 62 75 66 66 65 |-name sa|ve-buffe|
|00003a50| 72 20 73 63 63 73 2d 6c | 6f 61 64 2d 76 61 72 73 |r sccs-l|oad-vars|
|00003a60| 20 73 63 63 73 2d 61 64 | 6d 69 6e 20 6f 76 65 72 | sccs-ad|min over|
|00003a70| 72 69 64 65 20 72 65 61 | 64 2d 73 74 72 69 6e 67 |ride rea|d-string|
|00003a80| 20 22 49 6e 69 74 69 61 | 6c 20 53 49 44 3a 20 22 | "Initia|l SID: "|
|00003a90| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00003aa0| 22 c0 c1 21 88 c2 87 22 | 20 5b 6c 6f 61 64 2d 66 |"..!..."| [load-f|
|00003ab0| 69 6c 65 20 22 53 43 43 | 53 2f 65 6d 61 63 73 2d |ile "SCC|S/emacs-|
|00003ac0| 76 61 72 73 2e 65 6c 22 | 20 6e 69 6c 5d 20 32 29 |vars.el"| nil] 2)|
|00003ad0| 20 28 28 65 72 72 6f 72 | 20 74 29 29 20 22 31 22 | ((error| t)) "1"|
|00003ae0| 20 73 63 63 73 2d 63 75 | 72 72 65 6e 74 2d 6d 61 | sccs-cu|rrent-ma|
|00003af0| 6a 6f 72 2d 76 65 72 73 | 69 6f 6e 5d 20 35 20 28 |jor-vers|ion] 5 (|
|00003b00| 23 24 20 2e 20 2d 31 34 | 35 35 34 29 20 22 50 22 |#$ . -14|554) "P"|
|00003b10| 5d 29 0a 23 40 32 31 38 | 20 2a 44 69 66 66 20 61 |]).#@218| *Diff a|
|00003b20| 6c 6c 20 66 69 6c 65 73 | 20 62 65 6c 6f 77 20 64 |ll files| below d|
|00003b30| 65 66 61 75 6c 74 2d 64 | 69 72 65 63 74 6f 72 79 |efault-d|irectory|
|00003b40| 20 62 65 74 77 65 65 6e | 20 76 65 72 73 69 6f 6e | between| version|
|00003b50| 73 20 52 45 4c 31 20 61 | 6e 64 20 52 45 4c 32 2e |s REL1 a|nd REL2.|
|00003b60| 0a 54 68 65 20 72 65 70 | 6f 72 74 20 67 6f 65 73 |.The rep|ort goes|
|00003b70| 20 74 6f 20 61 20 73 68 | 65 6c 6c 20 6f 75 74 70 | to a sh|ell outp|
|00003b80| 75 74 20 62 75 66 66 65 | 72 20 77 68 69 63 68 20 |ut buffe|r which |
|00003b90| 69 73 20 70 6f 70 70 65 | 64 20 74 6f 2e 20 20 49 |is poppe|d to.  I|
|00003ba0| 66 20 52 45 4c 32 20 69 | 73 0a 6f 6d 69 74 74 65 |f REL2 i|s.omitte|
|00003bb0| 64 20 6f 72 20 6e 69 6c | 2c 20 74 68 65 20 63 6f |d or nil|, the co|
|00003bc0| 6d 70 61 72 69 73 6f 6e | 20 69 73 20 64 6f 6e 65 |mparison| is done|
|00003bd0| 20 61 67 61 69 6e 73 74 | 20 74 68 65 20 6d 6f 73 | against| the mos|
|00003be0| 74 20 72 65 63 65 6e 74 | 20 76 65 72 73 69 6f 6e |t recent| version|
|00003bf0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 63 |...(defa|lias 'sc|
|00003c00| 63 73 2d 72 65 6c 65 61 | 73 65 2d 64 69 66 66 20 |cs-relea|se-diff |
|00003c10| 23 5b 28 72 65 6c 31 20 | 72 65 6c 32 29 20 22 08 |#[(rel1 |rel2) ".|
|00003c20| c1 98 ab 82 c2 10 0b c1 | 98 ab 82 c2 13 c4 c5 0e |........|........|
|00003c30| 06 c7 51 21 88 c8 71 88 | 65 62 88 c9 ca c1 5c 22 |..Q!..q.|eb....\"|
|00003c40| 88 65 62 88 6d ab 86 cb | cc 0e 06 5c 22 88 cd ce |.eb.m...|...\"...|
|00003c50| 21 1e 0f 8a 0e 0f 71 88 | d0 20 88 d1 d2 08 ae 81 |!.....q.|. ......|
|00003c60| d3 0b ae 81 d3 23 63 88 | 29 6d ac a6 60 c2 7f 88 |.....#c.|)m..`...|
|00003c70| 60 7b 1e 14 8a 0e 0f 71 | 88 d5 c2 21 88 d6 0e 14 |`{.....q|...!....|
|00003c80| 08 0b 23 88 d7 20 ab 83 | d8 63 88 29 d9 79 88 29 |..#.. ..|.c.).y.)|
|00003c90| aa 57 da c8 21 88 db 0e | 0f 21 88 dc 63 88 65 62 |.W..!...|.!..c.eb|
|00003ca0| 88 c9 d1 dd 08 5c 22 de | 5c 22 88 65 62 88 c9 d1 |.....\".|\".eb...|
|00003cb0| dd 0b 5c 22 df 5c 22 88 | 65 62 88 c9 e0 df 5c 22 |..\".\".|eb....\"|
|00003cc0| 88 65 62 88 e1 e2 0e 06 | 50 e3 5c 22 88 65 62 88 |.eb.....|P.\".eb.|
|00003cd0| e1 e4 0e 06 50 e5 5c 22 | 88 65 62 88 d5 c2 21 29 |....P.\"|.eb...!)|
|00003ce0| 87 22 20 5b 72 65 6c 31 | 20 22 22 20 6e 69 6c 20 |." [rel1| "" nil |
|00003cf0| 72 65 6c 32 20 73 63 63 | 73 2d 73 68 65 6c 6c 2d |rel2 scc|s-shell-|
|00003d00| 63 6f 6d 6d 61 6e 64 20 | 22 2f 62 69 6e 2f 6c 73 |command |"/bin/ls|
|00003d10| 20 2d 31 20 22 20 64 65 | 66 61 75 6c 74 2d 64 69 | -1 " de|fault-di|
|00003d20| 72 65 63 74 6f 72 79 20 | 22 53 43 43 53 2f 73 2e |rectory |"SCCS/s.|
|00003d30| 2a 22 20 22 2a 53 68 65 | 6c 6c 20 43 6f 6d 6d 61 |*" "*She|ll Comma|
|00003d40| 6e 64 20 4f 75 74 70 75 | 74 2a 22 20 72 65 70 6c |nd Outpu|t*" repl|
|00003d50| 61 63 65 2d 73 74 72 69 | 6e 67 20 22 53 43 43 53 |ace-stri|ng "SCCS|
|00003d60| 2f 73 2e 22 20 65 72 72 | 6f 72 20 22 4e 6f 20 53 |/s." err|or "No S|
|00003d70| 43 43 53 20 66 69 6c 65 | 73 20 75 6e 64 65 72 20 |CCS file|s under |
|00003d80| 25 73 22 20 67 65 74 2d | 62 75 66 66 65 72 2d 63 |%s" get-|buffer-c|
|00003d90| 72 65 61 74 65 20 22 2a | 53 43 43 53 2a 22 20 73 |reate "*|SCCS*" s|
|00003da0| 63 63 73 62 75 66 20 65 | 72 61 73 65 2d 62 75 66 |ccsbuf e|rase-buf|
|00003db0| 66 65 72 20 66 6f 72 6d | 61 74 20 22 44 69 66 66 |fer form|at "Diff|
|00003dc0| 73 20 66 72 6f 6d 20 25 | 73 20 74 6f 20 25 73 2e |s from %|s to %s.|
|00003dd0| 5c 6e 5c 6e 22 20 22 63 | 75 72 72 65 6e 74 22 20 |\n\n" "c|urrent" |
|00003de0| 66 69 6c 65 20 73 65 74 | 2d 62 75 66 66 65 72 2d |file set|-buffer-|
|00003df0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 73 63 63 73 2d |modified|-p sccs-|
|00003e00| 76 64 69 66 66 20 62 75 | 66 66 65 72 2d 6d 6f 64 |vdiff bu|ffer-mod|
|00003e10| 69 66 69 65 64 2d 70 20 | 22 5c 6e 22 20 31 20 6b |ified-p |"\n" 1 k|
|00003e20| 69 6c 6c 2d 62 75 66 66 | 65 72 20 70 6f 70 2d 74 |ill-buff|er pop-t|
|00003e30| 6f 2d 62 75 66 66 65 72 | 20 22 5c 6e 45 6e 64 20 |o-buffer| "\nEnd |
|00003e40| 6f 66 20 64 69 66 66 73 | 2e 5c 6e 22 20 22 2f 53 |of diffs|.\n" "/S|
|00003e50| 43 43 53 2f 25 73 2e 22 | 20 22 2f 22 20 22 2f 6e |CCS/%s."| "/" "/n|
|00003e60| 65 77 2f 22 20 22 2f 53 | 43 43 53 2f 6e 65 77 2e |ew/" "/S|CCS/new.|
|00003e70| 22 20 72 65 70 6c 61 63 | 65 2d 72 65 67 65 78 70 |" replac|e-regexp|
|00003e80| 20 22 5e 2a 2a 2a 20 22 | 20 22 2a 2a 2a 20 22 20 | "^*** "| "*** " |
|00003e90| 22 5e 2d 2d 2d 20 22 20 | 22 2d 2d 2d 20 22 5d 20 |"^--- " |"--- "] |
|00003ea0| 34 20 28 23 24 20 2e 20 | 2d 31 35 31 32 39 29 20 |4 (#$ . |-15129) |
|00003eb0| 22 73 4f 6c 64 65 72 20 | 76 65 72 73 69 6f 6e 3a |"sOlder |version:|
|00003ec0| 20 5c 6e 73 4e 65 77 65 | 72 20 76 65 72 73 69 6f | \nsNewe|r versio|
|00003ed0| 6e 3a 20 22 5d 29 0a 23 | 40 35 38 20 4d 61 6b 65 |n: "]).#|@58 Make|
|00003ee0| 20 61 20 64 75 6d 6d 79 | 20 64 65 6c 74 61 20 74 | a dummy| delta t|
|00003ef0| 6f 20 74 68 65 20 67 69 | 76 65 6e 20 46 49 4c 45 |o the gi|ven FILE|
|00003f00| 20 77 69 74 68 20 74 68 | 65 20 67 69 76 65 6e 20 | with th|e given |
|00003f10| 53 49 44 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |SID...(d|efalias |
|00003f20| 27 73 63 63 73 2d 64 75 | 6d 6d 79 2d 64 65 6c 74 |'sccs-du|mmy-delt|
|00003f30| 61 20 23 5b 28 66 69 6c | 65 20 73 69 64 29 20 22 |a #[(fil|e sid) "|
|00003f40| c0 09 21 ac 85 c2 09 c3 | 5c 22 88 8a c4 09 c5 5c |..!.....|\".....\|
|00003f50| 22 1e 06 c7 c8 c9 89 89 | ca 0e 06 26 06 88 cb 0e |".......|...&....|
|00003f60| 06 21 88 cc c9 21 88 cd | ce cf 0e 10 50 c3 23 88 |.!...!..|....P.#.|
|00003f70| d1 65 64 0e 06 c3 d2 25 | 88 c7 c8 c9 89 89 d3 0e |.ed....%|........|
|00003f80| 06 26 06 88 d4 c9 21 88 | d5 70 21 88 2a d6 09 0e |.&....!.|.p!.*...|
|00003f90| 10 d7 0e 10 50 23 88 c2 | 09 c9 5c 22 88 d8 0e 10 |....P#..|..\"....|
|00003fa0| 21 87 22 20 5b 73 63 63 | 73 2d 6c 6f 63 6b 65 64 |!." [scc|s-locked|
|00003fb0| 2d 72 65 76 69 73 69 6f | 6e 20 66 69 6c 65 20 73 |-revisio|n file s|
|00003fc0| 63 63 73 2d 67 65 74 20 | 74 20 73 63 63 73 2d 6e |ccs-get |t sccs-n|
|00003fd0| 61 6d 65 20 22 70 22 20 | 70 66 69 6c 65 20 63 61 |ame "p" |pfile ca|
|00003fe0| 6c 6c 2d 70 72 6f 63 65 | 73 73 20 22 63 68 6d 6f |ll-proce|ss "chmo|
|00003ff0| 64 22 20 6e 69 6c 20 22 | 75 2b 77 22 20 66 69 6e |d" nil "|u+w" fin|
|00004000| 64 2d 66 69 6c 65 20 61 | 75 74 6f 2d 73 61 76 65 |d-file a|uto-save|
|00004010| 2d 6d 6f 64 65 20 72 65 | 70 6c 61 63 65 2d 72 65 |-mode re|place-re|
|00004020| 67 65 78 70 20 22 5e 5c | 5c 28 5b 30 2d 39 2e 5d |gexp "^\|\([0-9.]|
|00004030| 2b 5c 5c 29 20 5c 5c 28 | 5b 30 2d 39 2e 5d 2b 5c |+\\) \\(|[0-9.]+\|
|00004040| 5c 29 22 20 22 5c 5c 31 | 20 22 20 73 69 64 20 77 |\)" "\\1| " sid w|
|00004050| 72 69 74 65 2d 72 65 67 | 69 6f 6e 20 30 20 22 75 |rite-reg|ion 0 "u|
|00004060| 2d 77 22 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |-w" set-|buffer-m|
|00004070| 6f 64 69 66 69 65 64 2d | 70 20 6b 69 6c 6c 2d 62 |odified-|p kill-b|
|00004080| 75 66 66 65 72 20 73 63 | 63 73 2d 64 65 6c 74 61 |uffer sc|cs-delta|
|00004090| 20 22 52 65 6c 65 61 73 | 65 20 22 20 73 63 63 73 | "Releas|e " sccs|
|000040a0| 2d 73 61 76 65 2d 76 61 | 72 73 5d 20 37 20 28 23 |-save-va|rs] 7 (#|
|000040b0| 24 20 2e 20 31 36 30 39 | 32 29 20 22 73 46 69 6c |$ . 1609|2) "sFil|
|000040c0| 65 3a 20 5c 6e 73 52 65 | 6c 65 61 73 65 20 49 44 |e: \nsRe|lease ID|
|000040d0| 3a 20 22 5d 29 0a 23 40 | 37 37 20 2a 44 65 6c 74 |: "]).#@|77 *Delt|
|000040e0| 61 20 65 76 65 72 79 74 | 68 69 6e 67 20 75 6e 64 |a everyt|hing und|
|000040f0| 65 72 6e 65 61 74 68 20 | 74 68 65 20 63 75 72 72 |erneath |the curr|
|00004100| 65 6e 74 20 64 69 72 65 | 63 74 6f 72 79 20 74 6f |ent dire|ctory to|
|00004110| 20 6d 61 72 6b 20 69 74 | 20 61 73 20 61 20 72 65 | mark it| as a re|
|00004120| 6c 65 61 73 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 |lease...|(defalia|
|00004130| 73 20 27 73 63 63 73 2d | 64 65 6c 74 61 2d 72 65 |s 'sccs-|delta-re|
|00004140| 6c 65 61 73 65 20 23 5b | 28 73 69 64 29 20 22 c0 |lease #[|(sid) ".|
|00004150| c1 5c 6e 5c 22 88 c3 c4 | 21 87 22 20 5b 73 63 63 |.\n\"...|!." [scc|
|00004160| 73 2d 74 72 65 65 2d 77 | 61 6c 6b 20 73 63 63 73 |s-tree-w|alk sccs|
|00004170| 2d 64 75 6d 6d 79 2d 64 | 65 6c 74 61 20 73 69 64 |-dummy-d|elta sid|
|00004180| 20 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 22 2a 53 | kill-bu|ffer "*S|
|00004190| 43 43 53 2a 22 5d 20 33 | 20 28 23 24 20 2e 20 2d |CCS*"] 3| (#$ . -|
|000041a0| 31 36 36 30 33 29 20 22 | 73 52 65 6c 65 61 73 65 |16603) "|sRelease|
|000041b0| 3a 20 22 5d 29 0a 23 40 | 36 37 20 2a 52 65 76 65 |: "]).#@|67 *Reve|
|000041c0| 72 74 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |rt the c|urrent b|
|000041d0| 75 66 66 65 72 27 73 20 | 66 69 6c 65 20 62 61 63 |uffer's |file bac|
|000041e0| 6b 20 74 6f 20 74 68 65 | 20 6c 61 73 74 20 73 61 |k to the| last sa|
|000041f0| 76 65 64 20 76 65 72 73 | 69 6f 6e 2e 1f 0a 28 64 |ved vers|ion...(d|
|00004200| 65 66 61 6c 69 61 73 20 | 27 73 63 63 73 2d 72 65 |efalias |'sccs-re|
|00004210| 76 65 72 74 2d 62 75 66 | 66 65 72 20 23 5b 6e 69 |vert-buf|fer #[ni|
|00004220| 6c 20 22 c0 20 19 c2 c3 | c4 09 5c 22 21 ad a5 c5 |l ". ...|..\"!...|
|00004230| 09 21 88 c5 c6 09 c7 5c | 22 21 88 c8 c9 09 ca 5c |.!.....\|"!.....\|
|00004240| 22 09 5c 22 88 cb cc ca | 89 89 cd 09 26 06 88 ce |".\"....|....&...|
|00004250| ca cf 5c 22 88 d0 09 21 | 29 87 22 20 5b 62 75 66 |..\"...!|)." [buf|
|00004260| 66 65 72 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 66 69 |fer-file|-name fi|
|00004270| 6c 65 20 79 2d 6f 72 2d | 6e 2d 70 20 66 6f 72 6d |le y-or-|n-p form|
|00004280| 61 74 20 22 52 65 76 65 | 72 74 20 66 69 6c 65 20 |at "Reve|rt file |
|00004290| 25 73 20 74 6f 20 6c 61 | 73 74 20 53 43 43 53 20 |%s to la|st SCCS |
|000042a0| 72 65 76 69 73 69 6f 6e | 3f 22 20 64 65 6c 65 74 |revision|?" delet|
|000042b0| 65 2d 66 69 6c 65 20 73 | 63 63 73 2d 6e 61 6d 65 |e-file s|ccs-name|
|000042c0| 20 22 70 22 20 72 65 6e | 61 6d 65 2d 66 69 6c 65 | "p" ren|ame-file|
|000042d0| 20 73 63 63 73 2d 67 65 | 74 2d 76 65 72 73 69 6f | sccs-ge|t-versio|
|000042e0| 6e 20 6e 69 6c 20 63 61 | 6c 6c 2d 70 72 6f 63 65 |n nil ca|ll-proce|
|000042f0| 73 73 20 22 63 68 6d 6f | 64 22 20 22 2d 77 22 20 |ss "chmo|d" "-w" |
|00004300| 72 65 76 65 72 74 2d 62 | 75 66 66 65 72 20 74 20 |revert-b|uffer t |
|00004310| 73 63 63 73 2d 6d 6f 64 | 65 2d 6c 69 6e 65 5d 20 |sccs-mod|e-line] |
|00004320| 37 20 28 23 24 20 2e 20 | 2d 31 36 38 32 37 29 20 |7 (#$ . |-16827) |
|00004330| 6e 69 6c 5d 29 0a 23 40 | 34 38 20 2a 52 65 6e 61 |nil]).#@|48 *Rena|
|00004340| 6d 65 20 61 20 66 69 6c | 65 2c 20 74 61 6b 69 6e |me a fil|e, takin|
|00004350| 67 20 69 74 73 20 53 43 | 43 53 20 66 69 6c 65 73 |g its SC|CS files|
|00004360| 20 77 69 74 68 20 69 74 | 2e 1f 0a 28 64 65 66 61 | with it|...(defa|
|00004370| 6c 69 61 73 20 27 73 63 | 63 73 2d 72 65 6e 61 6d |lias 'sc|cs-renam|
|00004380| 65 2d 66 69 6c 65 20 23 | 5b 28 6f 6c 64 20 6e 65 |e-file #|[(old ne|
|00004390| 77 29 20 22 c0 09 21 89 | 1a ab 8b 5c 6e c3 20 98 |w) "..!.|...\n. .|
|000043a0| ac 85 c4 c5 5c 6e 5c 22 | 88 29 c6 09 0e 07 5c 22 |....\n\"|.)....\"|
|000043b0| 88 c8 c9 09 ca 5c 22 21 | ab 8c c6 c9 09 ca 5c 22 |.....\"!|......\"|
|000043c0| c9 0e 07 ca 5c 22 5c 22 | 88 c8 c9 09 cb 5c 22 21 |....\"\"|.....\"!|
|000043d0| ad 8b c6 c9 09 cb 5c 22 | c9 0e 07 cb 5c 22 5c 22 |......\"|....\"\"|
|000043e0| 87 22 20 5b 73 63 63 73 | 2d 6c 6f 63 6b 69 6e 67 |." [sccs|-locking|
|000043f0| 2d 75 73 65 72 20 6f 6c | 64 20 6f 77 6e 65 72 20 |-user ol|d owner |
|00004400| 75 73 65 72 2d 6c 6f 67 | 69 6e 2d 6e 61 6d 65 20 |user-log|in-name |
|00004410| 65 72 72 6f 72 20 22 53 | 6f 72 72 79 2c 20 25 73 |error "S|orry, %s|
|00004420| 20 68 61 73 20 74 68 61 | 74 20 66 69 6c 65 20 63 | has tha|t file c|
|00004430| 68 65 63 6b 65 64 20 6f | 75 74 22 20 72 65 6e 61 |hecked o|ut" rena|
|00004440| 6d 65 2d 66 69 6c 65 20 | 6e 65 77 20 66 69 6c 65 |me-file |new file|
|00004450| 2d 65 78 69 73 74 73 2d | 70 20 73 63 63 73 2d 6e |-exists-|p sccs-n|
|00004460| 61 6d 65 20 22 70 22 20 | 22 73 22 5d 20 36 20 28 |ame "p" |"s"] 6 (|
|00004470| 23 24 20 2e 20 2d 31 37 | 32 31 31 29 20 22 66 4f |#$ . -17|211) "fO|
|00004480| 6c 64 20 6e 61 6d 65 3a | 20 5c 6e 46 4e 65 77 20 |ld name:| \nFNew |
|00004490| 6e 61 6d 65 3a 20 22 5d | 29 0a 23 40 31 39 35 33 |name: "]|).#@1953|
|000044a0| 20 4d 69 6e 6f 72 20 6d | 6f 64 65 20 66 6f 72 20 | Minor m|ode for |
|000044b0| 64 72 69 76 69 6e 67 20 | 74 68 65 20 53 43 43 53 |driving |the SCCS|
|000044c0| 20 74 6f 6f 6c 73 2e 0a | 0a 54 68 65 73 65 20 62 | tools..|.These b|
|000044d0| 69 6e 64 69 6e 67 73 20 | 61 72 65 20 61 64 64 65 |indings |are adde|
|000044e0| 64 20 74 6f 20 74 68 65 | 20 67 6c 6f 62 61 6c 20 |d to the| global |
|000044f0| 6b 65 79 6d 61 70 20 77 | 68 65 6e 20 79 6f 75 20 |keymap w|hen you |
|00004500| 65 6e 74 65 72 20 74 68 | 69 73 20 6d 6f 64 65 3a |enter th|is mode:|
|00004510| 0a 5c 5b 73 63 63 73 5d | 09 70 65 72 66 6f 72 6d |.\[sccs]|.perform|
|00004520| 20 6e 65 78 74 20 6c 6f | 67 69 63 61 6c 20 53 43 | next lo|gical SC|
|00004530| 43 53 20 6f 70 65 72 61 | 74 69 6f 6e 20 28 60 73 |CS opera|tion (`s|
|00004540| 63 63 73 27 29 20 6f 6e | 20 63 75 72 72 65 6e 74 |ccs') on| current|
|00004550| 20 66 69 6c 65 0a 5c 5b | 73 63 63 73 2d 72 65 67 | file.\[|sccs-reg|
|00004560| 69 73 74 65 72 2d 66 69 | 6c 65 5d 09 09 72 65 67 |ister-fi|le]..reg|
|00004570| 69 73 74 65 72 20 63 75 | 72 72 65 6e 74 20 66 69 |ister cu|rrent fi|
|00004580| 6c 65 20 69 6e 74 6f 20 | 53 43 43 53 0a 5c 5b 73 |le into |SCCS.\[s|
|00004590| 63 63 73 2d 69 6e 73 65 | 72 74 2d 68 65 61 64 65 |ccs-inse|rt-heade|
|000045a0| 72 73 5d 09 09 69 6e 73 | 65 72 74 20 53 43 43 53 |rs]..ins|ert SCCS|
|000045b0| 20 68 65 61 64 65 72 73 | 20 69 6e 20 63 75 72 72 | headers| in curr|
|000045c0| 65 6e 74 20 66 69 6c 65 | 0a 5c 5b 73 63 63 73 2d |ent file|.\[sccs-|
|000045d0| 70 72 73 5d 09 09 64 69 | 73 70 6c 61 79 20 63 68 |prs]..di|splay ch|
|000045e0| 61 6e 67 65 20 68 69 73 | 74 6f 72 79 20 6f 66 20 |ange his|tory of |
|000045f0| 63 75 72 72 65 6e 74 20 | 66 69 6c 65 0a 5c 5b 73 |current |file.\[s|
|00004600| 63 63 73 2d 72 65 76 65 | 72 74 2d 62 75 66 66 65 |ccs-reve|rt-buffe|
|00004610| 72 5d 09 09 72 65 76 65 | 72 74 20 62 75 66 66 65 |r]..reve|rt buffe|
|00004620| 72 20 74 6f 20 6c 61 73 | 74 20 73 61 76 65 64 20 |r to las|t saved |
|00004630| 76 65 72 73 69 6f 6e 0a | 5c 5b 73 63 63 73 2d 72 |version.|\[sccs-r|
|00004640| 65 76 65 72 74 2d 64 69 | 66 66 5d 09 09 73 68 6f |evert-di|ff]..sho|
|00004650| 77 20 64 69 66 66 65 72 | 65 6e 63 65 20 62 65 74 |w differ|ence bet|
|00004660| 77 65 65 6e 20 62 75 66 | 66 65 72 20 61 6e 64 20 |ween buf|fer and |
|00004670| 6c 61 73 74 20 73 61 76 | 65 64 20 64 65 6c 74 61 |last sav|ed delta|
|00004680| 0a 5c 5b 73 63 63 73 2d | 70 65 6e 64 69 6e 67 5d |.\[sccs-|pending]|
|00004690| 09 09 73 68 6f 77 20 61 | 6c 6c 20 66 69 6c 65 73 |..show a|ll files|
|000046a0| 20 63 75 72 72 65 6e 74 | 6c 79 20 6c 6f 63 6b 65 | current|ly locke|
|000046b0| 64 20 62 79 20 61 6e 79 | 20 75 73 65 72 20 69 6e |d by any| user in|
|000046c0| 20 6f 72 20 62 65 6c 6f | 77 20 2e 0a 5c 5b 73 63 | or belo|w ..\[sc|
|000046d0| 63 73 2d 72 65 67 69 73 | 74 65 72 65 64 5d 09 09 |cs-regis|tered]..|
|000046e0| 73 68 6f 77 20 61 6c 6c | 20 66 69 6c 65 73 20 72 |show all| files r|
|000046f0| 65 67 69 73 74 65 72 65 | 64 20 69 6e 74 6f 20 53 |egistere|d into S|
|00004700| 43 43 53 20 69 6e 20 6f | 72 20 62 65 6c 6f 77 20 |CCS in o|r below |
|00004710| 2e 0a 5c 5b 73 63 63 73 | 2d 76 65 72 73 69 6f 6e |..\[sccs|-version|
|00004720| 2d 64 69 66 66 5d 09 09 | 73 68 6f 77 20 64 69 66 |-diff]..|show dif|
|00004730| 66 73 20 62 65 74 77 65 | 65 6e 20 73 61 76 65 64 |fs betwe|en saved|
|00004740| 20 76 65 72 73 69 6f 6e | 73 20 66 6f 72 20 61 6c | version|s for al|
|00004750| 6c 20 66 69 6c 65 73 20 | 69 6e 20 6f 72 20 62 65 |l files |in or be|
|00004760| 6c 6f 77 20 2e 0a 0a 57 | 68 65 6e 20 79 6f 75 20 |low ...W|hen you |
|00004770| 67 65 6e 65 72 61 74 65 | 20 68 65 61 64 65 72 73 |generate| headers|
|00004780| 20 69 6e 74 6f 20 61 20 | 62 75 66 66 65 72 20 75 | into a |buffer u|
|00004790| 73 69 6e 67 20 43 2d 63 | 20 68 2c 20 74 68 65 20 |sing C-c| h, the |
|000047a0| 76 61 6c 75 65 20 6f 66 | 0a 73 63 63 73 2d 69 6e |value of|.sccs-in|
|000047b0| 73 65 72 74 2d 68 65 61 | 64 65 72 73 2d 68 6f 6f |sert-hea|ders-hoo|
|000047c0| 6b 20 69 73 20 63 61 6c | 6c 65 64 20 62 65 66 6f |k is cal|led befo|
|000047d0| 72 65 20 69 6e 73 65 72 | 74 69 6f 6e 2e 20 49 66 |re inser|tion. If|
|000047e0| 20 74 68 65 20 66 69 6c | 65 20 69 73 0a 72 65 63 | the fil|e is.rec|
|000047f0| 6f 67 6e 69 7a 65 64 20 | 61 20 43 20 6f 72 20 4c |ognized |a C or L|
|00004800| 69 73 70 20 73 6f 75 72 | 63 65 2c 20 73 63 63 73 |isp sour|ce, sccs|
|00004810| 2d 69 6e 73 65 72 74 2d | 63 2d 68 65 61 64 65 72 |-insert-|c-header|
|00004820| 2d 68 6f 6f 6b 20 6f 72 | 0a 73 63 63 73 2d 69 6e |-hook or|.sccs-in|
|00004830| 73 65 72 74 2d 6c 69 73 | 70 2d 68 65 61 64 65 72 |sert-lis|p-header|
|00004840| 2d 68 6f 6f 6b 20 69 73 | 20 63 61 6c 6c 65 64 20 |-hook is| called |
|00004850| 61 66 74 65 72 20 69 6e | 73 65 72 74 69 6f 6e 20 |after in|sertion |
|00004860| 72 65 73 70 65 63 74 69 | 76 65 6c 79 2e 0a 0a 57 |respecti|vely...W|
|00004870| 68 69 6c 65 20 79 6f 75 | 20 61 72 65 20 65 6e 74 |hile you| are ent|
|00004880| 65 72 69 6e 67 20 61 20 | 63 68 61 6e 67 65 20 6c |ering a |change l|
|00004890| 6f 67 20 6d 65 73 73 61 | 67 65 20 66 6f 72 20 61 |og messa|ge for a|
|000048a0| 20 64 65 6c 74 61 2c 20 | 74 68 65 20 66 6f 6c 6c | delta, |the foll|
|000048b0| 6f 77 69 6e 67 0a 61 64 | 64 69 74 69 6f 6e 61 6c |owing.ad|ditional|
|000048c0| 20 62 69 6e 64 69 6e 67 | 73 20 77 69 6c 6c 20 62 | binding|s will b|
|000048d0| 65 20 69 6e 20 65 66 66 | 65 63 74 2e 0a 0a 5c 5b |e in eff|ect...\[|
|000048e0| 73 63 63 73 2d 6c 6f 67 | 2d 65 78 69 74 5d 09 09 |sccs-log|-exit]..|
|000048f0| 70 72 6f 63 65 65 64 20 | 77 69 74 68 20 63 68 65 |proceed |with che|
|00004900| 63 6b 20 69 6e 2c 20 65 | 6e 64 69 6e 67 20 6c 6f |ck in, e|nding lo|
|00004910| 67 20 6d 65 73 73 61 67 | 65 20 65 6e 74 72 79 0a |g messag|e entry.|
|00004920| 5c 5b 73 63 63 73 2d 69 | 6e 73 65 72 74 2d 6c 61 |\[sccs-i|nsert-la|
|00004930| 73 74 2d 6c 6f 67 5d 09 | 09 69 6e 73 65 72 74 20 |st-log].|.insert |
|00004940| 6c 6f 67 20 6d 65 73 73 | 61 67 65 20 66 72 6f 6d |log mess|age from|
|00004950| 20 6c 61 73 74 20 63 68 | 65 63 6b 2d 69 6e 0a 5c | last ch|eck-in.\|
|00004960| 5b 73 63 63 73 2d 64 65 | 6c 74 61 2d 61 62 6f 72 |[sccs-de|lta-abor|
|00004970| 74 5d 09 09 61 62 6f 72 | 74 20 74 68 69 73 20 64 |t]..abor|t this d|
|00004980| 65 6c 74 61 20 63 68 65 | 63 6b 2d 69 6e 0a 0a 45 |elta che|ck-in..E|
|00004990| 6e 74 72 79 20 74 6f 20 | 74 68 65 20 63 68 61 6e |ntry to |the chan|
|000049a0| 67 65 2d 6c 6f 67 20 73 | 75 62 6d 6f 64 65 20 63 |ge-log s|ubmode c|
|000049b0| 61 6c 6c 73 20 74 68 65 | 20 76 61 6c 75 65 20 6f |alls the| value o|
|000049c0| 66 20 74 65 78 74 2d 6d | 6f 64 65 2d 68 6f 6f 6b |f text-m|ode-hook|
|000049d0| 2c 20 74 68 65 6e 0a 74 | 68 65 20 76 61 6c 75 65 |, then.t|he value|
|000049e0| 20 73 63 63 73 2d 6d 6f | 64 65 2d 68 6f 6f 6b 2e | sccs-mo|de-hook.|
|000049f0| 0a 0a 47 6c 6f 62 61 6c | 20 75 73 65 72 20 6f 70 |..Global| user op|
|00004a00| 74 69 6f 6e 73 3a 0a 20 | 20 20 20 20 20 20 20 73 |tions:. |       s|
|00004a10| 63 63 73 2d 6d 6f 64 65 | 2d 65 78 70 65 72 74 20 |ccs-mode|-expert |
|00004a20| 20 20 20 20 20 20 20 73 | 75 70 70 72 65 73 73 65 |       s|uppresse|
|00004a30| 73 20 73 6f 6d 65 20 63 | 6f 6e 66 6f 72 6d 61 74 |s some c|onformat|
|00004a40| 69 6f 6e 20 70 72 6f 6d | 70 74 73 2c 0a 09 09 09 |ion prom|pts,....|
|00004a50| 09 6e 6f 74 61 62 6c 79 | 20 66 6f 72 20 64 65 6c |.notably| for del|
|00004a60| 74 61 20 61 62 6f 72 74 | 73 20 61 6e 64 20 66 69 |ta abort|s and fi|
|00004a70| 6c 65 20 73 61 76 65 73 | 2e 0a 09 73 63 63 73 2d |le saves|...sccs-|
|00004a80| 6d 61 78 2d 6c 6f 67 2d | 73 69 7a 65 09 73 70 65 |max-log-|size.spe|
|00004a90| 63 69 66 69 65 73 20 74 | 68 65 20 6d 61 78 69 6d |cifies t|he maxim|
|00004aa0| 75 6d 20 61 6c 6c 6f 77 | 61 62 6c 65 20 73 69 7a |um allow|able siz|
|00004ab0| 65 0a 09 09 09 09 6f 66 | 20 61 20 6c 6f 67 20 6d |e.....of| a log m|
|00004ac0| 65 73 73 61 67 65 20 70 | 6c 75 73 20 6f 6e 65 2e |essage p|lus one.|
|00004ad0| 0a 09 73 63 63 73 2d 64 | 69 66 66 2d 63 6f 6d 6d |..sccs-d|iff-comm|
|00004ae0| 61 6e 64 09 41 20 6c 69 | 73 74 20 63 6f 6e 73 69 |and.A li|st consi|
|00004af0| 73 74 69 6e 67 20 6f 66 | 20 74 68 65 20 63 6f 6d |sting of| the com|
|00004b00| 6d 61 6e 64 20 61 6e 64 | 20 66 6c 61 67 73 0a 09 |mand and| flags..|
|00004b10| 09 09 09 74 6f 20 62 65 | 20 75 73 65 64 20 66 6f |...to be| used fo|
|00004b20| 72 20 67 65 6e 65 72 61 | 74 69 6e 67 20 63 6f 6e |r genera|ting con|
|00004b30| 74 65 78 74 20 64 69 66 | 66 73 2e 0a 09 73 63 63 |text dif|fs...scc|
|00004b40| 73 2d 68 65 61 64 65 72 | 73 2d 77 61 6e 74 65 64 |s-header|s-wanted|
|00004b50| 09 77 68 69 63 68 20 25 | 2d 6b 65 79 77 6f 72 64 |.which %|-keyword|
|00004b60| 73 20 74 6f 20 69 6e 73 | 65 72 74 20 77 68 65 6e |s to ins|ert when|
|00004b70| 20 61 64 64 69 6e 67 0a | 09 09 09 09 53 43 43 53 | adding.|....SCCS|
|00004b80| 20 68 65 61 64 65 72 73 | 20 77 69 74 68 20 43 2d | headers| with C-|
|00004b90| 63 20 68 0a 09 73 63 63 | 73 2d 69 6e 73 65 72 74 |c h..scc|s-insert|
|00004ba0| 2d 73 74 61 74 69 63 09 | 69 66 20 6e 6f 6e 2d 6e |-static.|if non-n|
|00004bb0| 69 6c 2c 20 53 43 43 53 | 20 6b 65 79 77 6f 72 64 |il, SCCS| keyword|
|00004bc0| 73 20 69 6e 73 65 72 74 | 65 64 20 69 6e 20 43 20 |s insert|ed in C |
|00004bd0| 66 69 6c 65 73 0a 09 09 | 09 09 67 65 74 20 73 74 |files...|..get st|
|00004be0| 75 66 66 65 64 20 69 6e | 20 61 20 73 74 61 74 69 |uffed in| a stati|
|00004bf0| 63 20 73 74 72 69 6e 67 | 20 61 72 65 61 20 73 6f |c string| area so|
|00004c00| 20 74 68 61 74 0a 09 09 | 09 09 77 68 61 74 28 31 | that...|..what(1|
|00004c10| 29 20 63 61 6e 20 73 65 | 65 20 74 68 65 6d 20 69 |) can se|e them i|
|00004c20| 6e 20 74 68 65 20 63 6f | 6d 70 69 6c 65 64 20 6f |n the co|mpiled o|
|00004c30| 62 6a 65 63 74 0a 09 09 | 09 09 63 6f 64 65 2e 0a |bject...|..code..|
|00004c40| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 63 63 |..(defal|ias 'scc|
|00004c50| 73 2d 6d 6f 64 65 20 23 | 5b 6e 69 6c 20 22 c0 09 |s-mode #|[nil "..|
|00004c60| 21 88 c2 0b 21 88 0c 15 | c6 16 07 c8 16 09 ca cb |!...!...|........|
|00004c70| cc 5c 22 87 22 20 5b 73 | 65 74 2d 73 79 6e 74 61 |.\"." [s|et-synta|
|00004c80| 78 2d 74 61 62 6c 65 20 | 74 65 78 74 2d 6d 6f 64 |x-table |text-mod|
|00004c90| 65 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 75 |e-syntax|-table u|
|00004ca0| 73 65 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 73 63 63 |se-local|-map scc|
|00004cb0| 73 2d 6c 6f 67 2d 65 6e | 74 72 79 2d 6d 6f 64 65 |s-log-en|try-mode|
|00004cc0| 20 74 65 78 74 2d 6d 6f | 64 65 2d 61 62 62 72 65 | text-mo|de-abbre|
|00004cd0| 76 2d 74 61 62 6c 65 20 | 6c 6f 63 61 6c 2d 61 62 |v-table |local-ab|
|00004ce0| 62 72 65 76 2d 74 61 62 | 6c 65 20 73 63 63 73 2d |brev-tab|le sccs-|
|00004cf0| 6d 6f 64 65 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |mode maj|or-mode |
|00004d00| 22 53 43 43 53 20 43 68 | 61 6e 67 65 20 4c 6f 67 |"SCCS Ch|ange Log|
|00004d10| 20 45 6e 74 72 79 22 20 | 6d 6f 64 65 2d 6e 61 6d | Entry" |mode-nam|
|00004d20| 65 20 72 75 6e 2d 68 6f | 6f 6b 73 20 74 65 78 74 |e run-ho|oks text|
|00004d30| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 20 73 63 63 73 2d |-mode-ho|ok sccs-|
|00004d40| 6d 6f 64 65 2d 68 6f 6f | 6b 5d 20 33 20 28 23 24 |mode-hoo|k] 3 (#$|
|00004d50| 20 2e 20 31 37 35 36 39 | 29 20 6e 69 6c 5d 29 0a | . 17569|) nil]).|
|00004d60| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ac a7 c1 |(byte-co|de "....|
|00004d70| 20 10 c2 08 c3 c4 23 88 | c2 08 c5 c4 23 88 c2 08 | .....#.|....#...|
|00004d80| c6 c7 23 88 c2 08 c8 c7 | 23 88 c2 08 c9 ca 23 88 |..#.....|#.....#.|
|00004d90| c2 08 cb ca 23 88 cc 16 | 0d cd 0e 0e 42 16 0e cf |....#...|....B...|
|00004da0| d0 21 88 d1 d2 d3 0e 0d | 41 23 87 22 20 5b 73 63 |.!......|A#." [sc|
|00004db0| 63 73 2d 6c 6f 67 2d 65 | 6e 74 72 79 2d 6d 6f 64 |cs-log-e|ntry-mod|
|00004dc0| 65 20 6d 61 6b 65 2d 73 | 70 61 72 73 65 2d 6b 65 |e make-s|parse-ke|
|00004dd0| 79 6d 61 70 20 64 65 66 | 69 6e 65 2d 6b 65 79 20 |ymap def|ine-key |
|00004de0| 22 03 69 22 20 73 63 63 | 73 2d 69 6e 73 65 72 74 |".i" scc|s-insert|
|00004df0| 2d 6c 61 73 74 2d 6c 6f | 67 20 22 03 09 22 20 22 |-last-lo|g ".." "|
|00004e00| 03 61 22 20 73 63 63 73 | 2d 64 65 6c 74 61 2d 61 |.a" sccs|-delta-a|
|00004e10| 62 6f 72 74 20 22 03 01 | 22 20 22 03 03 22 20 73 |bort "..|" ".." s|
|00004e20| 63 63 73 2d 6c 6f 67 2d | 65 78 69 74 20 22 18 13 |ccs-log-|exit "..|
|00004e30| 22 20 28 22 53 43 43 53 | 20 43 6f 6d 6d 61 6e 64 |" ("SCCS| Command|
|00004e40| 73 22 20 5b 22 53 43 43 | 53 22 20 73 63 63 73 20 |s" ["SCC|S" sccs |
|00004e50| 74 20 6e 69 6c 5d 20 5b | 22 49 6e 73 65 72 74 20 |t nil] [|"Insert |
|00004e60| 48 65 61 64 65 72 73 22 | 20 73 63 63 73 2d 69 6e |Headers"| sccs-in|
|00004e70| 73 65 72 74 2d 68 65 61 | 64 65 72 73 20 74 5d 20 |sert-hea|ders t] |
|00004e80| 5b 22 41 72 63 68 69 76 | 65 20 48 69 73 74 6f 72 |["Archiv|e Histor|
|00004e90| 79 3a 22 20 73 63 63 73 | 2d 70 72 73 20 74 20 6e |y:" sccs|-prs t n|
|00004ea0| 69 6c 5d 20 5b 22 44 69 | 66 66 73 20 66 72 6f 6d |il] ["Di|ffs from|
|00004eb0| 20 41 72 63 68 69 76 65 | 3a 22 20 73 63 63 73 2d | Archive|:" sccs-|
|00004ec0| 72 65 76 65 72 74 2d 64 | 69 66 66 20 74 20 6e 69 |revert-d|iff t ni|
|00004ed0| 6c 5d 20 5b 22 52 65 76 | 65 72 74 20 74 6f 20 41 |l] ["Rev|ert to A|
|00004ee0| 72 63 68 69 76 65 3a 22 | 20 73 63 63 73 2d 72 65 |rchive:"| sccs-re|
|00004ef0| 76 65 72 74 2d 62 75 66 | 66 65 72 20 74 20 6e 69 |vert-buf|fer t ni|
|00004f00| 6c 5d 20 22 2d 2d 2d 2d | 22 20 5b 22 43 68 65 63 |l] "----|" ["Chec|
|00004f10| 6b 20 49 6e 2e 2e 2e 22 | 20 73 63 63 73 2d 64 75 |k In..."| sccs-du|
|00004f20| 6d 6d 79 2d 64 65 6c 74 | 61 20 74 5d 20 5b 22 43 |mmy-delt|a t] ["C|
|00004f30| 72 65 61 74 65 20 41 72 | 63 68 69 76 65 2e 2e 2e |reate Ar|chive...|
|00004f40| 22 20 73 63 63 73 2d 72 | 65 67 69 73 74 65 72 2d |" sccs-r|egister-|
|00004f50| 66 69 6c 65 20 74 5d 20 | 5b 22 52 65 6e 61 6d 65 |file t] |["Rename|
|00004f60| 20 41 72 63 68 69 76 65 | 2e 2e 2e 22 20 73 63 63 | Archive|..." scc|
|00004f70| 73 2d 72 65 6e 61 6d 65 | 2d 66 69 6c 65 20 74 5d |s-rename|-file t]|
|00004f80| 20 22 2d 2d 2d 2d 22 20 | 5b 22 4c 69 73 74 20 43 | "----" |["List C|
|00004f90| 68 65 63 6b 65 64 2d 4f | 75 74 20 46 69 6c 65 73 |hecked-O|ut Files|
|00004fa0| 22 20 73 63 63 73 2d 70 | 65 6e 64 69 6e 67 20 74 |" sccs-p|ending t|
|00004fb0| 5d 20 5b 22 4c 69 73 74 | 20 52 65 67 69 73 74 65 |] ["List| Registe|
|00004fc0| 72 65 64 20 46 69 6c 65 | 73 22 20 73 63 63 73 2d |red File|s" sccs-|
|00004fd0| 72 65 67 69 73 74 65 72 | 65 64 20 74 5d 20 5b 22 |register|ed t] ["|
|00004fe0| 44 69 66 66 20 44 69 72 | 65 63 74 6f 72 79 22 20 |Diff Dir|ectory" |
|00004ff0| 73 63 63 73 2d 72 65 6c | 65 61 73 65 2d 64 69 66 |sccs-rel|ease-dif|
|00005000| 66 20 74 5d 20 5b 22 44 | 65 6c 74 61 20 44 69 72 |f t] ["D|elta Dir|
|00005010| 65 63 74 6f 72 79 22 20 | 73 63 63 73 2d 64 65 6c |ectory" |sccs-del|
|00005020| 74 61 2d 72 65 6c 65 61 | 73 65 20 74 5d 29 20 73 |ta-relea|se t]) s|
|00005030| 63 63 73 2d 6d 65 6e 75 | 20 63 75 72 72 65 6e 74 |ccs-menu| current|
|00005040| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 64 65 6c 65 74 |-load-li|st delet|
|00005050| 65 2d 6d 65 6e 75 2d 69 | 74 65 6d 20 28 22 53 43 |e-menu-i|tem ("SC|
|00005060| 43 53 22 29 20 61 64 64 | 2d 6d 65 6e 75 20 6e 69 |CS") add|-menu ni|
|00005070| 6c 20 22 53 43 43 53 22 | 5d 20 34 29 0a 28 64 65 |l "SCCS"|] 4).(de|
|00005080| 66 61 6c 69 61 73 20 27 | 73 63 63 73 2d 73 65 6e |falias '|sccs-sen|
|00005090| 73 69 74 69 7a 65 2d 6d | 65 6e 75 20 23 5b 6e 69 |sitize-m|enu #[ni|
|000050a0| 6c 20 22 c0 09 c2 5c 22 | 40 41 1b c4 1d 0e 06 ab |l "...\"|@A......|
|000050b0| 86 c7 0e 06 21 aa 82 c8 | 20 1e 09 ca 0e 06 ab 84 |....!...| .......|
|000050c0| 0e 06 aa 82 0e 0b 21 1e | 0c 0e 06 ad 84 cd 0e 06 |......!.|........|
|000050d0| 21 89 1e 0e ad 84 cf 0e | 0e 21 89 1e 10 ad 87 cf |!.......|.!......|
|000050e0| cd 0e 06 d1 5c 22 21 1e | 12 d3 1e 14 d3 1e 15 0b |....\"!.|........|
|000050f0| ab f4 0b 40 16 15 d6 0e | 15 21 ab e4 0e 15 d7 48 |...@....|.!.....H|
|00005100| 89 16 14 d8 61 ab 98 0e | 15 d9 0e 0e ab 84 0e 10 |....a...|........|
|00005110| ac 83 da aa 88 0e 12 ac | 83 db aa 81 dc 49 88 0e |........|.....I..|
|00005120| 15 47 dd 56 ab 92 de df | 0e 15 d9 48 5c 22 ab 89 |.G.V....|...H\"..|
|00005130| 0e 15 dd 0e 0c 49 88 aa | 8e 0e 15 47 dd 56 ab 87 |.....I..|...G.V..|
|00005140| 0e 15 dd 0e 09 49 88 0e | 15 e0 0e 14 e1 73 ab 84 |.....I..|.....s..|
|00005150| 0e 10 aa 8b 0e 14 e2 73 | ab 84 0e 12 aa 81 c4 49 |.......s|.......I|
|00005160| 88 0b 41 89 13 ac 0c 2e | 09 d3 87 22 20 5b 66 69 |..A.....|..." [fi|
|00005170| 6e 64 2d 6d 65 6e 75 2d | 69 74 65 6d 20 63 75 72 |nd-menu-|item cur|
|00005180| 72 65 6e 74 2d 6d 65 6e | 75 62 61 72 20 28 22 53 |rent-men|ubar ("S|
|00005190| 43 43 53 22 29 20 72 65 | 73 74 20 74 20 63 61 73 |CCS") re|st t cas|
|000051a0| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 62 75 |e-fold-s|earch bu|
|000051b0| 66 66 65 72 2d 66 69 6c | 65 2d 6e 61 6d 65 20 66 |ffer-fil|e-name f|
|000051c0| 69 6c 65 2d 6e 61 6d 65 | 2d 6e 6f 6e 64 69 72 65 |ile-name|-nondire|
|000051d0| 63 74 6f 72 79 20 62 75 | 66 66 65 72 2d 6e 61 6d |ctory bu|ffer-nam|
|000051e0| 65 20 66 69 6c 65 20 66 | 69 6c 65 2d 6e 61 6d 65 |e file f|ile-name|
|000051f0| 2d 64 69 72 65 63 74 6f | 72 79 20 64 65 66 61 75 |-directo|ry defau|
|00005200| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 20 64 69 72 |lt-direc|tory dir|
|00005210| 20 73 63 63 73 2d 6e 61 | 6d 65 20 73 63 63 73 2d | sccs-na|me sccs-|
|00005220| 66 69 6c 65 20 66 69 6c | 65 2d 65 78 69 73 74 73 |file fil|e-exists|
|00005230| 2d 70 20 6b 6e 6f 77 6e | 2d 70 20 22 70 22 20 63 |-p known|-p "p" c|
|00005240| 68 65 63 6b 65 64 2d 6f | 75 74 2d 70 20 6e 69 6c |hecked-o|ut-p nil|
|00005250| 20 63 6f 6d 6d 61 6e 64 | 20 69 74 65 6d 20 76 65 | command| item ve|
|00005260| 63 74 6f 72 70 20 31 20 | 73 63 63 73 20 30 20 22 |ctorp 1 |sccs 0 "|
|00005270| 43 72 65 61 74 65 20 41 | 72 63 68 69 76 65 3a 22 |Create A|rchive:"|
|00005280| 20 22 43 68 65 63 6b 20 | 4f 75 74 22 20 22 43 68 | "Check |Out" "Ch|
|00005290| 65 63 6b 20 49 6e 22 20 | 33 20 73 74 72 69 6e 67 |eck In" |3 string|
|000052a0| 2d 6d 61 74 63 68 20 22 | 64 69 72 65 63 74 6f 72 |-match "|director|
|000052b0| 79 22 20 32 20 28 73 63 | 63 73 2d 70 72 73 29 20 |y" 2 (sc|cs-prs) |
|000052c0| 28 73 63 63 73 2d 72 65 | 76 65 72 74 2d 64 69 66 |(sccs-re|vert-dif|
|000052d0| 66 20 73 63 63 73 2d 72 | 65 76 65 72 74 2d 62 75 |f sccs-r|evert-bu|
|000052e0| 66 66 65 72 29 5d 20 35 | 5d 29 0a 28 62 79 74 65 |ffer)] 5|]).(byte|
|000052f0| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 88 c3 c4 21 |-code ".|..\"...!|
|00005300| 87 22 20 5b 61 64 64 2d | 68 6f 6f 6b 20 61 63 74 |." [add-|hook act|
|00005310| 69 76 61 74 65 2d 6d 65 | 6e 75 62 61 72 2d 68 6f |ivate-me|nubar-ho|
|00005320| 6f 6b 20 73 63 63 73 2d | 73 65 6e 73 69 74 69 7a |ok sccs-|sensitiz|
|00005330| 65 2d 6d 65 6e 75 20 70 | 72 6f 76 69 64 65 20 73 |e-menu p|rovide s|
|00005340| 63 63 73 5d 20 33 29 0a |                         |ccs] 3).|        |
+--------+-------------------------+-------------------------+--------+--------+